实用技巧

---- 在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 对象的范畴还是比较广的，其用途也决不仅仅局限于对数据库的操作，利用该思路我们还可以使摆脱在硬盘上建立 临时库和表之苦成为可能等等。

在日常的工作生活中， 我们对计算机软硬件技术的应用开发肯定有许多的心得体会， 拿来和众人分享：让别人得到他们想要的，使自己找到苦苦寻觅的； 小的点点滴滴，大的工程系统，这里都需要。投稿 的关键在“技巧”二 字，知他人所不知，这样的稿件本栏最最欢迎! 大家公认的 好文章自然会有好的奖励。希望每个人 在这里都有所收获...

  中国惠普
  3Com中国
  Motorola中国
  CA中国
  Cabletron
  Sony在中国
  西门子WinCC
  爱普生中国
  中国建设银行
  德州仪器(TI)
  问博医药