在分页显示记录中需要显示当前记录也数据,而显示记录页数据有两种方法:
方法一:使用DataGrid控件;DataGrid控件可显示记录集中的全部数据,所以不能直接将分页的记录集绑定到DataGrid控件,需要先将当前记录页中的记录复制到一个新的记录集中,再将其绑定到DataGrid控件,便可显示当前记录也数据。
方法二:使用MSFlexGrid控件;其可在设计时将其绑定到Data控件,在运行时,则可通过设置控件的TextMatrix属性来显示数据。
那么它们到底有什么区别呢?
1,MSFlexGrid控件比较灵活
因为其有TextMatrix属性(设置和返回控件任意单元格的文本内容),所以在做显示数据时,直接可通过循环在其中填充数据(数据有灵活性,可填充一部分,也可全部填充,所以分页显示效果较容易实现)。
下面是它在分页中的代码:
MSFlexGrid1.Clear '清除原有数据
‘通过循环在TextMatrix属性中填充数据
For I = 0 To objRs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, I) = objRs.Fields(I).Name
Next
For I = 1 To objRs.PageSize
For J = 0 To objRs.Fields.Count - 1
MSFlexGrid1.TextMatrix(I, J) = objRs.Fields(J)
Next
objRs.MoveNext
If objRs.EOF Then Exit For
Next
而DataGrid控件是显示记录集中的全部数据,所以在做分页显示时,需要先将需要显示的部分拷贝到一个新的记录集中,然后再通过DataGrid控件显示该(新)记录集中的全部数据,所以做法较为死板。
例如它在分页显示时的代码:
‘创建一个新的空记录集
For intRecord = 0 To objRs.Fields.Count - 1
objDataSource.Fields.Append objRs.Fields(intRecord).Name, adVarChar, objRs.Fields(intRecord).DefinedSize
Next
‘将需要显示的部分拷贝到一个新的记录集中
For intRecord = 1 To objRs.PageSize '将objRs当前记录页中数据写入objDataSource
objDataSource.AddNew
objDataSource!用户名 = objRs!用户名
objDataSource!口令 = objRs!口令
objDataSource!身份 = objRs!身份
objRs.MoveNext
If objRs.EOF Then Exit For
Next
’通过DataGrid控件显示该(新)记录集中的全部数据
Set DataGrid1.DataSource = objDataSource
2,MSFlexGrid控件显示效果好
MSFlexGrid控件的网格中可以包含字符串和图片,并且它提供了高度灵活的网格排序、合并和格式设置功能,因此它可以设计出非常漂亮且实用的界面。
而DataGrid只有基本的显示数据的功能,相对MSFlexGrid来说就比较乏味。