实例与举一反三之比较（四）

实例四：分页显示记录

原例：使用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