在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, adBookFirst 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, adBookFirst) 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 对象的范畴还是比较广的,其用途也决不仅仅局限于对数据库的操作,利用该思路我们还可以使摆脱在硬盘上建立 临时库和表之苦成为可能等等。
如果你只想用控件 那么ADODC 也就是 Microsoft ADO Data Control 6.0 (SP4) (OLEDB)
能 在 该 程 序 中 实 现 象 电 子 表 格 那 样 的 输 入 界 面, 就 可 以 解 决 这 个 问
题。 ---- VB 虽 提 供 了Grid 网 格 控 件, 但 其 只 具 有 显 示 输 出 功 能, 要 使 其
能 接 受 输 入 数 据, 必 须 对 它 加 以 改 造, 在 计 算 机 报 刊 中 的 许 多 文 章 都
对 此 进 行 了 探 讨, 但 所 用 方 法 都 不 能 令 人 满 意, 笔 者 经 过 摸 索, 找 出
以 下 办 法, 供 有 兴 趣 者 参 考。 ---- 首 先 在VB 5.0 环 境 下Form1 中 放 上 如 图1 所 示 的 各 控 件:Text1;Grid1;
Command1;Command2;Vscroll1;Hscroll1。
图1 Form1 及 其 控 件 ---- 双 击Form1 打 开Code 窗 口, 编 制 程 序 代 码。 Dim inputcolnum, inputrownum As Integer
Private Sub Command2_Click()
End
End SubPrivate Sub Form_Activate()
Text1.SetFocus ' 文 本 框 获 得 焦 点
End Sub
Private Sub Form_Load()
Grid1.ColWidth(0) = 540
Grid1.RowH eight(0) = 216 '单元格的宽和高inputcolnum = 13
inputrownum = 15 '表中显示的列、行数Grid1.Cols = 20
Grid1.Rows = 20 '表中总的列、行数HScroll1.Height = 300
VScroll1.Width = 300 '水平和垂直滚动条的高、宽度Grid1.Height = (inputrownum + 1) '
(Grid1.RowHeight(0) + Grid1.GridLineWidth * 12)
+ 12 + HScroll1.Height
'800×600象素时为12;640×480为15
Grid1.Width = (inputcolnum + 1) *
(Grid1.ColWidth(0) + Grid1.GridLineWidth * 12)
+ 12 + VScroll1.Width
'表的高、宽度HScroll1.Width = Grid1.Width - VScroll1.Width
VScroll1.Height = Grid1.Height - HScroll1.Height
' 水 平 和 垂 直 滚 动 条 的 宽、 高 度HScroll1.Left = Grid1.Left
HScroll1.Top = Grid1.Top + Grid1.Height - HScroll1.Height
' 水 平 滚 动 条 的 位 置VScroll1.Left = Grid1.Left + Grid1.Width - VScroll1.Width
VScroll1.Top = Grid1.Top
' 垂 直 滚 动 条 的 位 置HScroll1.Min = 1
HScroll1.Max = Grid1.Cols - inputcolnum
VScroll1.Min = 1
VScroll1.Max = Grid1.Rows - inputrownum
' 水 平 和 垂 直 滚 动 条 的 范 围Text1.Width = Grid1.ColWidth(0)
Text1.Height = Grid1.RowHeight(0)
' 文 本 框 的 宽、 高 度Text1.Left = Grid1.Left + Grid1.ColWidth(0)
+ Grid1.GridLineWidth * 12
Text1.Top = Grid1.Top + Grid1.RowHeight(0)
+ Grid1.GridLineWidth * 12
' 文 本 框 的 位 置' 初 始 化 赋 值
Text1.Visible = TrueFor I = 1 To Grid1.Cols - 1
Grid1.Col = I
Grid1.Row = 0
Grid1.Text = Str(I)
Grid1.Col = 0
Grid1.Row = I
Grid1.Text = Str(I)
Next IGrid1.Col = 1
Grid1.Row = 1 ' 网格的列、行初始位置Grid1.SelStartCol = 1
Grid1.SelStartRow = 1 '网格中单元格的列、行初始位置Grid1.LeftCol = 1
Grid1.TopRow = 1 '网格中左上角的列、行初始位置End Sub
Private Sub Grid1_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Grid1.Col = Grid1.SelStartCol
Grid1.Row = Grid1.SelStartRow
Text1.Text = Grid1.Text
colnum = Grid1.Col - Grid1.LeftCol + 1
rownum = Grid1.Row - Grid1.TopRow + 1
Text1.Left = Grid1.Left + (Grid1.ColWidth(0)
+ Grid1.GridLineWidth * 12) * colnum
Text1.Top = Grid1.Top + (Grid1.RowHeight(0)
+ Grid1.GridLineWidth * 12) * rownum
End Sub
Private Sub Grid1_MouseUp(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
End Sub
Private Sub HScroll1_Change()
startcol = Grid1.LeftCol
Grid1.LeftCol = HScroll1.Value
Grid1.SelStartCol = Grid1.SelStartCol
+ Grid1.LeftCol - startcol
Grid1.Col = Grid1.SelStartCol
Text1.Text = Grid1.Text
End SubPrivate Sub Text1_Change()
Grid1.Text = Text1.Text
End SubPrivate Sub Text1_KeyDown(KeyCode
As Integer, Shift As Integer)
Select Case KeyCode
Case 38 ' 光 标 向 上
Grid1.Text = Text1.TextIf Grid1.SelStartRow < 2 Then
If Grid1.TopRow > 1 Then
VScroll1.Value = VScroll1.Value - 1
Else
Grid1.SelStartRow = 1
End If
Else
If Grid1.TopRow = Grid1.SelStartRow Then
VScroll1.Value = VScroll1.Value - 1
Else
Grid1.SelStartRow = Grid1.SelStartRow - 1
End If
End IfGrid1.Col = Grid1.SelStartCol
Grid1.Row = Grid1.SelStartRowcolnum = Grid1.Col - Grid1.LeftCol + 1
rownum = Grid1.Row - Grid1.TopRow + 1Text1.Text = Grid1.Text
Text1.Left = Grid1.Left + (Grid1.ColWidth(0)
+ Grid1.GridLineWidth * 12) * colnum
Text1.Top = Grid1.Top + (Grid1.RowHeight(0)
+ Grid1.GridLineWidth * 12) * rownumExit SubCase 40 ' 光 标 向 下
Grid1.Text = Text1.Text
If Grid1.SelStartRow > inputrownum - 1 Then
If Grid1.TopRow < Grid1.Rows - inputrownum Then
VScroll1.Value = VScroll1.Value + 1
Else
If VScroll1.Value = VScroll1.Max And
Grid1.SelStartRow < Grid1.Rows - 1 Then
Grid1.SelStartRow = Grid1.SelStartRow + 1
Else
Grid1.SelStartRow = Grid1.Rows - 1
End If
End If
Else
If Grid1.TopRow = Grid1.SelStartRow - inputrownum Then
VScroll1.Value = VScroll1.Value + 1
Else
Grid1.SelStartRow = Grid1.SelStartRow + 1
End If
End IfGrid1.Col = Grid1.SelStartCol
Grid1.Row = Grid1.SelStartRow
colnum = Grid1.Col - Grid1.LeftCol + 1
rownum = Grid1.Row - Grid1.TopRow + 1
Text1.Text = Grid1.Text
Text1.Left = Grid1.Left + (Grid1.ColWidth(0)
+ Grid1.GridLineWidth * 12) * colnum
Text1.Top = Grid1.Top + (Grid1.RowHeight(0)
+ Grid1.GridLineWidth * 12) * rownumExit Sub
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, adBookFirst
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,
adBookFirst)
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 对象的范畴还是比较广的,其用途也决不仅仅局限于对数据库的操作,利用该思路我们还可以使摆脱在硬盘上建立 临时库和表之苦成为可能等等。
那么ADODC
也就是
Microsoft ADO Data Control 6.0 (SP4) (OLEDB)