Kelvsat
asked on
runtime error '40041'
i am using Sheridan as grid to my form. In SSDBgrid properties i have named every columns. When i want to read row by row, this error message come out. Below is the code:
Private Function CreateLNAndInd()
Dim intNumRow As Integer
Dim Ln As Integer
Ln = 1
With mclsGrid1
.MoveFirst
Do While Not .EOF
.rdoColumns("WCYC_LN").Val ue = Ln
.rdoColumns("WCYC_IND").Va lue = "*"
Ln = Ln + 1
.MoveNext
Loop
End With
End Function
Actually there have few more columns.
Does anyone know this problem??? pls anwer me.
Private Function CreateLNAndInd()
Dim intNumRow As Integer
Dim Ln As Integer
Ln = 1
With mclsGrid1
.MoveFirst
Do While Not .EOF
.rdoColumns("WCYC_LN").Val
.rdoColumns("WCYC_IND").Va
Ln = Ln + 1
.MoveNext
Loop
End With
End Function
Actually there have few more columns.
Does anyone know this problem??? pls anwer me.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.