[求助][讨论]循环赋值，这里错在哪了？(在线等)

fannky

'前提：窗体上有n个与表中字段名相同的文本框、复选按钮之类的输入界面。

'目的：使用循环把查找出来的数据一一对应的赋值

Dim Rst As ADODB.Recordset
Dim Sql As String
Set Rst = New ADODB.Recordset
Sql = "SELECT 日期,订单号,产品名称,原料,原料型号,色号,是否填充,开料色号,备注 FROM 开料记录"
Rst.Open Sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rst.RecordCount > 0 Then
Rst.MoveFirst

Dim Ctr As Control
For Each Ctr In Me.Controls
If Right(Ctr.Tag, 3) = "Cha" Then

Ctr = Rst("& Ctr &")   '就是这里错了，但是不知道如何才是正确的，//Ctr.text = Rst("& Ctr &") /Ctr = Rst("& Ctr.name &")/这些方法也不行，还请大师指正。并且告诉我原因，谢谢

End If
Next
是否填充.Value = Rst("是否填充")
End If

sgrshh29

试一下:Ctr = Rst(Ctr.name)

andymark

try:

Rst.Fields("" & Ctr)

or

Rst.Fields ("" + Ctr+ "")

fannky

试一下:Ctr = Rst(Ctr.name)

谢谢，解决了

try:
Rst.Fields("" & Ctr)
or
Rst.Fields ("" + Ctr+ "")

多谢，不过对日期型的字段就有问题了

tz-chf

参考《Access 2000中文版开发指南》p622，优化查询和窗体