7453
社区成员
- 主页
谢谢上次各位朋友的帮助！再问一个关于MSFlexGrid控件的问题！谢谢VB朋友的帮助！
DoubleClick 控件的某一个单元格，使其内容被选中，然后改变其数据的内容，然后鼠标移开后自己保存到数据库中。
请问上述方法怎么才可以实现！！
请问上述方法怎么才可以实现！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xh_mlj 2003-01-01
这个网格也是不可编辑的,以前用一个方法,就是隐藏一个文本框,点击网格的某个单位格时让文本框移动到这个单元格上并显示出来,在文本框中输入数据,在此文本框失去焦点时,改变单元格的值同时改变数据库表的值.
附:曾经用过的一段代码,供参考:
Sub Sub_ShowCellEdit()
With MBrand
intRow = .Row
IntCol = .Col
TxtCellEdit.Move .Left + .CellLeft, .CellTop + 370, .CellWidth - ScaleX(1, vbPixels, vbTwips), .CellHeight - ScaleY(1, vbPixels, vbTwips) ', .CellWidth, .CellHeight '- ScaleY(1, vbPixels, vbTwips)
TxtCellEdit.Visible = True
'
TxtCellEdit.Text = .Text
'
TxtCellEdit.ZOrder
TxtCellEdit.SetFocus
TxtCellEdit.SelStart = 0
TxtCellEdit.SelLength = Len(TxtCellEdit.Text)
End With
End Sub
Private Sub TxtCellEdit_LostFocus()
MBrand.TextMatrix(intRow, IntCol) = TxtCellEdit
End Sub
Private Sub TxtCellEdit_Validate(Cancel As Boolean)
MBrand.TextMatrix(intRow, IntCol) = TxtCellEdit
End Sub
附:曾经用过的一段代码,供参考:
Sub Sub_ShowCellEdit()
With MBrand
intRow = .Row
IntCol = .Col
TxtCellEdit.Move .Left + .CellLeft, .CellTop + 370, .CellWidth - ScaleX(1, vbPixels, vbTwips), .CellHeight - ScaleY(1, vbPixels, vbTwips) ', .CellWidth, .CellHeight '- ScaleY(1, vbPixels, vbTwips)
TxtCellEdit.Visible = True
'
TxtCellEdit.Text = .Text
'
TxtCellEdit.ZOrder
TxtCellEdit.SetFocus
TxtCellEdit.SelStart = 0
TxtCellEdit.SelLength = Len(TxtCellEdit.Text)
End With
End Sub
Private Sub TxtCellEdit_LostFocus()
MBrand.TextMatrix(intRow, IntCol) = TxtCellEdit
End Sub
Private Sub TxtCellEdit_Validate(Cancel As Boolean)
MBrand.TextMatrix(intRow, IntCol) = TxtCellEdit
End Sub
tony1980 2003-01-01
那怎么选中呢？有没有代码，我想那样会好一点！谢谢！
ice119103 2002-12-31
取得鼠标离开的消息，然后UPDATE
