就是点击修改的按钮，然后弹出图1的窗口，几个控件上显示的就是选中的信息，然后进行修改，然后覆盖原来的信息。怎么实现？都是用adodc控件连接sql数据库的

[ 本帖最后由 t469116416 于 2014-1-26 13:32 编辑 ]

上面说错了显示的是图2的窗口。代码在下面，这是图1中修改按钮的代码

Private Sub Command2_Click() '修改按钮
  '判断是否选择了表中的一行
  If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
    MsgBox "请选择要显示的行"
    Exit Sub
  End If
  '读取选中的行数据，显示数据
  xtyhxgck.Text1.Text = Adodc1.Recordset.Fields(0)
  xtyhxgck.Text2.Text = Adodc1.Recordset.Fields(1)
  xtyhxgck.Text3.Text = Adodc1.Recordset.Fields(2)
  xtyhxgck.Text5.Text = Adodc1.Recordset.Fields(3)
   = Adodc1.Recordset.Fields(4)
  xtyhxgck.Show
End Sub

这个是图2中的全部代码，求大神指导。

Private Sub Command1_Click()
Adodc1.Recordset.Update
MsgBox ("修改成功！")
     xtglck.Adodc1.Refresh '表格马上更新
     Set xtglck.DataGrid1.DataSource = xtglck.Adodc1
     xtglck.DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

这些代码是你写的吗？

Private Sub Command1_Click()
xtglck.Adodc1.Recordset.Fields(0)=xtyhxgck.Text1.Text
xtglck.Adodc1.Recordset.Fields(1)=xtyhxgck.Text2.Text
xtglck.Adodc1.Recordset.Fields(2)=xtyhxgck.Text3.Text
xtglck.Adodc1.Recordset.Fields(3)=xtyhxgck.Text5.Text
xtglck.Adodc1.Recordset.Fields(4)=
xtglck.Adodc1.Recordset.Update
MsgBox ("修改成功！")
      xtglck.Adodc1.Refresh '表格马上更新
     Set xtglck.DataGrid1.DataSource = xtglck.Adodc1
      xtglck.DataGrid1.Refresh
End Sub

是的 ，根据网上找的些代码参考的 ，

这不行吗？

更改的永远是第一个，我如果选择第二个，修改的还是第一个，我想修改的是我选中的那个，

[ 本帖最后由 t469116416 于 2014-1-26 17:24 编辑 ]

更改的永远是第一个，我如果选择第二个，修改的还是第一个，我想修改的是我选中的那个，

你确定？
还有其它代码?

是的啊没有其他代码了