For i = 1 To Row - 1
totalAmt = totalAmt + Val(grdDisplay.TextMatrix(i, 5))
Next i
lblTotalAmt = format(val(totalAmt), "0.00")
sakto ni?
kay ako result nako kay zero
For i = 1 To Row - 1
totalAmt = totalAmt + Val(grdDisplay.TextMatrix(i, 5))
Next i
lblTotalAmt = format(val(totalAmt), "0.00")
sakto ni?
kay ako result nako kay zero
'//..use Cdbl instead of Val...
dim totalAmt as double
For i = 1 To Row - 1
totalAmt = totalAmt + cdbl (grdDisplay.TextMatrix(i, 5))
Next i
lblTotalAmt = format(totalAmt, "0.00")
Bry... seryoso na kaayo ka ha... hilom2x lang ka cge diay ka code sa balay.. hehe
ask ko ba about vb6 ma install na og win7? og winXP?
seryoso na dodong lestat.. seryos na sa iyang abs ug pag program.. hoy maayo man si maria ana lestat..ad2 nya patabang
@richcode
mainstall ng vb6 sa winXP, la ko ktry win7, pwd mn sb tali
dli pwede vb6 sa win7.
need help:
all from module
Public Sub Clear()
Call ClearGrid(grdRow, Row)
Row = 1
totalAmt = 0
totalqty = 0
txtPO.SetFocus
End Sub
Public Sub ClearGrid(ByRef grid As MSFlexGrid, ByRef Row As Integer)
grid.Clear
grid.Rows = 2
grid.FormatString = grid.FormatString
Row = 1
End Sub
ang ERROR KAY: ByRef type mismatch
pero kung ako put ang clear function adto sa frmEntry ok ra pero ako sagol sa module mo error.
@tamse serious man jud ko pagkatao.
@marquez nagsugod naka og buhat?
Similar Threads |
|