可以的
按上面的做一个文本框,配合网格完成修改功能,
再按下面的这段(已经实现)完成写回数据库,实现修改功能:
Private Sub Command1_Click() '修改表
Dim k As Integer
Dim j As Integer
On Error GoTo err
For k = 1 To Fg2.Rows - 1
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Move (k - 1)
For j = 2 To Fg2.Cols - 1
Adodc1.Recordset.Fields(j - 1).Value = Fg2.TextMatrix(k, j)
Adodc1.Recordset.Update
Next j
Next k
MsgBox "您成功的更新了数据库!"
err:
End Sub
注意当前表格和数据库中表的对应位置就好了
你试试看,我的能够成功运行
Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer
5 增加代码到 Grid_KeyPress 过程:
Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面!
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub
6 增加代码到 Text1_KeyPress 过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub
7 增加代码到 Text1_LostFocus 过程:
Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub