跟vb的MSHFlexGrid有关的问题

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:51:09
我想把一个表的内容在MSHFlexGrid这里面显示。并且还有可编辑的功能。能实现吗？如何实现，如果方便请留一段简单的代码和思路。谢谢

MSHFlexGrid是只读控件，要录入，可以借助textbox
思路是点击单元格是用同样大小的textbox覆盖它。
下边是参考代码：
Private Sub Command2_Click() '保存
Adodc1.RecordSource = "select * from 商品表"
Adodc1.Refresh
For j = 1 To 7
If MSFlexGrid1.TextMatrix(j, 1) <> "" Then
Adodc1.Recordset.AddNew
For i = 0 To 5
If MSFlexGrid1.TextMatrix(j, i) <> "" Then
Adodc1.Recordset.Fields(i) = MSFlexGrid1.TextMatrix(j, i)
End If
Next i
End If
Next j
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "信息保存成功！", vbInformation, "信息提示"
End Sub

Private Sub Form_Activate()
Dim i As Integer
MSFlexGrid1.Rows = 8
MSFlexGrid1.Cols = 6
MSFlexGrid1.ColWidth(0) = 12 * 25 * 1
MSFlexGrid1.ColWidth(1) = 12 * 25 * 3
MSFlexGrid1.ColWidth(2) = 12 * 25 * 6
MSFlexGrid1.ColWidth(3) = 12 * 25 * 3
MSFle