VB 6 need help

[rhex_tendo]

---

Public Sub Clear()
Call ClearGrid(grdRow, Row)

Row = 1
totalAmt = 0
totalqty = 0

txtPO.SetFocus
End Sub
-----------------
'error jd na kay wala man kay gipasa na parameter sa grdRow ug Row
'..suggest lng:
'1. remove Call ClearGrid(grdRow, Row) ug Row = 1 from the module
'2. inig tawag na nim, ing.ania lang:
Call ClearGrid(grdRow, Row)
Call Clear


'''''happy coding..

[lestat1116]

ako niya testingan na. ty.

[l_e_n_c_e]

pwede ra ma install ang vb6 sa win7...e check lng ang compatibility mode sa Run this program in compatibility mode for : Windows XP (Service Pack 3).

[tamse]

@lestat1116
--char seryos! ... wa pa na sulbad?

[lestat1116]

@lestat1116
--char seryos! ... wa pa na sulbad?

wala pa jud. maka buang na jud.

[tamse]

wala pa jud. maka buang na jud.

tabangan ta tka..nawala man akong portable nga vb6...

[lestat1116]

ako lang post ako mga problema dri. hahaha

[l_e_n_c_e]

Public Sub Clear()
Call ClearGrid(grdRow, Row)

Row = 1
totalAmt = 0
totalqty = 0

txtPO.SetFocus
End Sub
-----------------
'error jd na kay wala man kay gipasa na parameter sa grdRow ug Row
'..suggest lng:
'1. remove Call ClearGrid(grdRow, Row) ug Row = 1 from the module
'2. inig tawag na nim, ing.ania lang:
Call ClearGrid(grdRow, Row)
Call Clear


'''''happy coding..

sakto ni ka @rhex_tendo...just change the "Byref" to "Byval"

@lestat1116....just try this one.

****frmEntry
Private Sub Command1_Click()
Call ClearGrid(grid, Row)
Call Clear
End Sub

Private Sub Form_Load()
Me.grid.AddItem "test", 1
Me.grid.AddItem "test2", 2
End Sub

****from module
Public Sub Clear()

'Call ClearGrid(grid, Row)

Row = 1
totalAmt = 0
totalqty = 0

'txtPO.SetFocus
End Sub

Public Sub ClearGrid(ByVal grid As MSFlexGrid, ByVal Row As Integer)
grid.Clear
grid.Rows = 2
grid.FormatString = grid.FormatString
Row = 1
End Sub

[lestat1116]

sakto ni ka @rhex_tendo...just change the "Byref" to "Byval"

@lestat1116....just try this one.

****frmEntry
Private Sub Command1_Click()
Call ClearGrid(grid, Row)
Call Clear
End Sub

Private Sub Form_Load()
Me.grid.AddItem "test", 1
Me.grid.AddItem "test2", 2
End Sub

****from module
Public Sub Clear()

'Call ClearGrid(grid, Row)

Row = 1
totalAmt = 0
totalqty = 0

'txtPO.SetFocus
End Sub

Public Sub ClearGrid(ByVal grid As MSFlexGrid, ByVal Row As Integer)
grid.Clear
grid.Rows = 2
grid.FormatString = grid.FormatString
Row = 1
End Sub

cge try pud nako ni. theres something wrong jud. naa man unta sayon pero nahan ko tanan ako mga functions naa sa module.

[sprocket]

mga bro pwede ko mangayo sample code sa vb6..error trapping kanang itrap nimo nga d sya pwede mka input ug number ba, dapat text ra jud...nalimot nman gud ko on how to error trap preho ani...pls some ideas..?thanks...