巧用VB6的DataGrid实现通用电子表格.docx

巧用VB6的DataGrid实现通用电子表格2VB控件数组的操作技巧5巧用VB6的DataGrid实现通用电子表格在Microsoft Developer Network Library Visual Studio 6.0（MSDN）或者VB5.0的《联 机手册》中都提供了一个《在（Hierarchical）FlexGrid 电子表格中编辑单元》的解决方 案，实现了在（Hierarchical）FlexGrid电子表格中编辑单元，另外也有一些关于实现类 电 子表格的文章与该方案大同小异，都是用TextBox与Grid 一类的控件配合来实现的，因 为Grid 之类的控件本身是不可以编辑单元的，然而众所周知DataGrid本身就是可以编 辑单元，它的一般用法是在程序设计或运行时设置一个数据源（DataSource），这个数据 源可以是Recordset或者是数据控件（如：ADODC等），在通常情况下该数据源是一个 数据库（DataBase）的基本表（Table）、视图（View）或者查询（Query）等。其实，DataGrid 的数据源的本质就是一个二维表，该数据源可以是一个无数据库实体的二维表（记录集 Recordset），这样就可以用DataGrid实现通用电子表格编辑单元。思路很简单，就是在 程序运行时，创建一任意Recordset作为DataGrid的DataSource。当然，该记录集仅仅 就是一个二维表，并无数据库实体。 　 一些实现的技术细节代码如下： 　 创建任意无数据库实体的记录集，并将其设为DataGrid的数据源。 Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 为Recordset三个字段,即为 DataGrid 添加三列 adoRecordset.Fields.Append 第 i 列, adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable Next i adoRecordset.Open For i = 0 To 3 adoRecordset.AddNew 加四条记录,即为 DataGrid 添加四空行 Next i Set DataGrid1.DataSource = adoRecordset 绑定 DataGrid 的数据源 adoRecordset.MoveFirst 编到这里就已经实现 了编辑单元格。 　 ? 准确读取单元格内容，是电子表格最重要的方面。 　 方法一：直接使用记录集。 　 创建如下函数返回某单元格内容： Private Function vMyCell_1 (adoRecordsetX As ADODB.Recordset, iColX As Integer, iRowX As Integer) As Variant If iColX = adoRecordsetX.Fields.Count - 1 And iRowX = adoRecordsetX.RecordCount - 1 Then adoRecordsetX.Move iRowX, adBookmarkFirst If IsNull(adoRecordsetX.Fields(iColX).Value) Then vMyCell_1 = Null Else vMyCell_1 = adoRecordsetX.Fields(iColX).Value End If Else vMyCell_1 = 下标越界 End If End Function 　 方法二：使用记录集数组。 　 创建如下函数返回某单元格内容： Private Function vMyCell_2 (adoRecordsetX As ADODB.Recordset, iColX As Integer, iRowX As Integer) As Variant Dim V As Variant 将 Recordset 对象的多个记录恢复到数组中 V = adoRecordsetX.GetRows(adoRecordsetX.RecordCount, adBookmarkFirst) If iColX = UBound(V, 1) And iRowX = UBound(V, 2) Then If IsNull(V(iColX, iRowX)) Then vMyCell_2 = Null Else vMyCell_2 = V(iColX, iRowX) End If Else vMyCell_2 = 下标越界 End