Question

VB 中ado控件的一个问题

Answer 1

Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveNext
Adodc1.Recordset.Fields("姓名").Value = 姓名字控件(你上面的TEXT控件)
Adodc1.Recordset.Fields("性别").Value = 性别字控件(你上面的TEXT控件)
Adodc11.Recordset.Update
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

追问

那如何将输入的内容（比如一个数字）加到某项中去，就比如本来张三的体重是60，我用小窗口输入10然后加到张三的60中去变成70，具体的语句是什么？谢谢。

追答

Adodc1.Refresh，首先要确定（张三）那一行与列，加上10对应的TEXT控件。
参考：Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Fields("体重").Value = Adodc1.Recordset.Fields("体重").Value +体重字控件(你上面的TEXT控件)

追问

Adodc1.Recordset.Fields("体重").Value = Adodc1.Recordset.Fields("体重").Value +体重字控件(你上面的TEXT控件)

这一句不是只选定了体重一项吗，还没确定人名吧？

追答

Adodc1.Recordset.MoveFirst：已经指定那一行了。

追问

Adodc1.Recordset.MoveFirst是指定第一行吧？比如想指定“张三”行的体重该如何写，麻烦你了

追答

VB很讨厌的地方是只能单独更改一行，如要面对所有的行，则只有自己编码来逐行检测，使用循环语句：参考：
Adodc1.Refresh
If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
Adodc1.Recordset.MoveFirst
Adodc1.Refresh
Do While Adodc11.Recordset.EOF = False And Adodc11.Recordset.BOF = False
Adodc1.Recordset.Fields("张三").Value = 张三字控件(你上面的TEXT控件)
Adodc1.Recordset.Fields("体重").Value = Adodc1.Recordset.Fields("体重").Value +体重字控件(你上面的TEXT控件)

Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
Loop
Else
End If