[求助]请教高手：字段名如果用变量表示，正确的用法是什么？

pyzou

有哪位可以帮帮我啊！

字段名如果用变量表示，正确的用法是什么？

例如下：

Private Sub cmdOK_Click()
Dim AA As String
AA = ed.Value     'ed是一个文本框

Set rs3 = CurrentDb.OpenRecordset("select * from [入物料] where [ID]=30933")

rs3.edit
rs3!AA="更改" ‘问题就是 rs3!AA这样表示不正确吗？ AA表示一个字段名，如果我的 rs3！字段名 就没有问题

rs3.Update
rs3.Close

End Sub[em04]

[此贴子已经被作者于2006-6-24 15:20:05编辑过]

andymark

把例子传上来看看

pyzou

传上来了，有劳版主看一看了

andymark

都可以用变量

Dim Rs As New ADODB.Recordset
Rs.Open "select * from 出配件 where [ID]=1330", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
    Rs.Fields(Me.eid.Value) = 7
    Rs.MoveNext
    Loop
Set Rs = Nothing

pyzou

老大可不可以将例子修改给我啊！我好笨啊！

andymark

pyzou

多谢了！请再帮我看一下，文件我已传上来了，修改后出现数据类型不配。

pyzou

这是另一个问题，之前问题已解决了！再次多谢！

andymark

ID 是自动编号不是字符串,去掉''

Rs.Open "select * from 入配件 where [ID]=" & editid & " ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

pyzou

OK，ANDYMARK万岁！！！！