Adodc2.Recordset.Find "number='" & Combo1.Text & "'"

i = Adodc1.Recordset.Fields(2) - i

Adodc2.Recordset.Fields(5) = Adodc2.Recordset.Fields(5) + i

Adodc2.Recordset.Update

MsgBox "修改成功", vbOKOnly, "修改"

Do While Not Adodc1.Recordset.EOF

Combo1.AddItem Adodc1.Recordset.Fields(0)

Adodc1.Recordset.MoveNext

Loop

Text5.Text = "yy-mm-dd"

这两个程序代码是什么意思啊？

[此贴子已经被作者于2007-7-9 13:38:14编辑过]