实例四:分页显示记录
原例:使用DataGrid控件实现分页。
举一反三(1):
不同点:多了两个功能:前一记录和后一记录。
本例:
Private Sub
Command1_Click()
objDataSource.MovePrevious
If objDataSource.BOF Then objDataSource.MoveFirst
End Sub
Private Sub Command2_Click()
objDataSource.MoveNext
If objDataSource.EOF Then objDataSource.MoveLast
End Sub
举一反三(2):
不同点:使用MSFlexGrid控件实现分页,与用DataGrid控件的区别可参见《DataGrid与MSFlexGrid控件的区别》。
举一反三(3):
不同点:DataGrid的DataSource为Adodc,(原例的DataGrid的DataSource为objDataSource记录对象)。
原例:
Set DataGrid1.DataSource = objDataSource
本例:
Set Adodc1.Recordset = objDataSource