Private Sub cmdPre_Click()
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
Call init_text‘初始化文本框
Else
Adodc1.Recordset.MovePrevious
Call init_text
End If
End Sub
各位大哥,帮帮我,我是初学者不懂这么多啊。
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
Call init_text‘初始化文本框
Else
Adodc1.Recordset.MovePrevious
Call init_text
End If
End Sub
各位大哥,帮帮我,我是初学者不懂这么多啊。
Adodc1.Recordset.MoveFirst
Call init_text‘初始化文本框
Else
Adodc1.Recordset.MoveNext
Call init_text
End If
End Sub
Private Sub cmdPre_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
End If
Call init_text
End Sub呵呵,这样就对了。