vb上的datagrid上选中的选项，然后点击按钮，就可以显示在下个窗体的其他控件上，然后可以修改保存 - 编程论坛

#2

t4691164162014-01-26 13:30

上面说错了显示的是图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

#3

t4691164162014-01-26 13:32

这个是图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

#4

Artless2014-01-26 13:43

这些代码是你写的吗？

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

#5

t4691164162014-01-26 13:50

回复 4楼 Artless

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

#6

Artless2014-01-26 16:03

以下是引用Artless在2014-1-26 13:43:14的发言：

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

这不行吗？

#7

t4691164162014-01-26 17:20

回复 6楼 Artless

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

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

#8

沙子382014-01-26 20:31

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

#9

Artless2014-01-26 22:20

以下是引用t469116416在2014-1-26 17:20:53的发言：

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

你确定？
还有其它代码?

#10

t4691164162014-01-26 22:23

回复 9楼 Artless

是的啊没有其他代码了

#11

t4691164162014-01-26 22:36

回复 9楼 Artless

不好意思大神，刚刚实验了这个代码没有问题了，谢谢指导。以后有问题还可以问你吗？