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