您所在位置：主题：到底有没有错
liyongdian
[专家分：0] 发布于 2008-09-28 14:52:00
Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from 考勤信息"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst --------------------- 一直提示这里有错误
Call viewData
' myBookmark = mrc.Bookmark
mcclean = True
Dim i As Integer
For i = 0 To 15
txtFields(i).Enabled = False
Next i
End Sub
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from 考勤信息"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst --------------------- 一直提示这里有错误
Call viewData
' myBookmark = mrc.Bookmark
mcclean = True
Dim i As Integer
For i = 0 To 15
txtFields(i).Enabled = False
Next i
End Sub
