巧用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 If
End Function
		

　 方法三：使用DataGrid.Text属性返回。

　 创建如下函数返回某单元格内容：

Private Function vMyCell_3
(DataGridX As DataGrid, adoRecordsetX As 
ADODB.Recordset, iColX As Integer,
 iRowX As Integer) As Variant
If iColX < = DataGridX.Columns.Count
 - 1 And iRowX < = 
  adoRecordsetX.RecordCount - 1 Then
  DataGridX.Col = iColX
  DataGridX.Row = iRowX
  vMyCell_3 = DataGridX.Text
Else
  vMyCell_3 = "下标越界"
End If
End Function

　 该方案在PWin 9.X 和VB 6.0下通过。轻而易举就实现了编辑电子表格单元，其关键就在于创建了一个无数据库实 体的记录集来作为DataGrid的数据源，这就说明了Recordset 对象的范畴还是比较广的，其用途也决不仅仅局限于对数据库的操作，利用该思路我们还可以使摆脱在硬盘上建立 临时库和表之苦成为可能等等。