Private Sub Command1_Click()
if not rs.bof then Rs.movefirst
Rs.Find ("file1 = 3")
End Sub
Private Sub Form_Load()
Call set1
Call add1
End Sub
Sub set1()
Rs.Fields.Append "file1", adInteger, adFldIsNullable + adFldMayBeNull
Rs.Fields.Append "file2", adChar, adFldIsNullable + adFldMayBeNull
Rs.Open
End Sub
Sub add1()
Dim i As Integer
For i = 1 To 10
Rs.AddNew
Rs("file1") = i
Rs("file2") = CStr(i)
Rs.Update
Next
Set DataGrid1.DataSource = Rs
End Sub
Private Sub Command1_Click()
Rs.Find ("file1 = 3")
’为什么这里RS.EOF = TRUE呢?应该可以找到才对呀??
End Sub
Private Sub Form_Load()
Call set1
Call add1
End Sub
Sub set1()
Rs.Fields.Append "file1", adInteger, adFldIsNullable + adFldMayBeNull
Rs.Fields.Append "file2", adChar, adFldIsNullable + adFldMayBeNull
Rs.Open
End Sub
Sub add1()
Dim i As Integer
For i = 1 To 10
Rs.AddNew
Rs("file1") = i
Rs("file2") = CStr(i)
Rs.Update
Next
Set DataGrid1.DataSource = Rs
End Sub