Bug or Feature

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   
In Report Control when i added new row with data type double


AddRecord LembagaPenjaminBank, "", 0, 0, Date

Sub AddRecord(Penjamin As LembagaPenjamin, NomorReferensi As String, Nilai As Double, Plafon As Double, JatuhTempo As Date)
    Dim Record As ReportRecord
    Dim Item As ReportRecordItem
    Dim LastIndex As Long
    Set Record = rpcJaminan.Records.Add()
    LastIndex = Record.Index
    
    Set Item = Record.AddItem(Penjamin)
    Set Item = Record.AddItem(NomorReferensi)
    Set Item = Record.AddItem(Nilai)
    'Item.Format = "Rp. %s"
    
    Set Item = Record.AddItem(Plafon)
    Item.Editable = False
    Set Item = Record.AddItem(JatuhTempo)
    rpcJaminan.Populate
    rpcJaminan.Navigator.MoveLastRow
End Sub


it will ignores any character added behind number or turn to zero where first is not number

but when i added request_edit event


Private Sub rpcJaminan_RequestEdit(ByVal Row As
XtremeReportControl.IReportRow, ByVal Column As
XtremeReportControl.IReportColumn, ByVal Item As
XtremeReportControl.IReportRecordItem, Cancel As Boolean)

    If Item.Index = COLUMN_NILAI Then

        If Item.Value > 0 Then
    
         & ;nbs p; Item.Value = Format(Item.Value, "##############.#0")

        Else
    
         & ;nbs p; Item.Value = Format(Item.Value, "##############")

        End If

    End If

End Sub


it will accept any character in front and behind