Office中国论坛/Access中国论坛

标题: [求助][讨论]循环赋值，这里错在哪了？(在线等) [打印本页]

作者: fannky 时间: 2006-8-9 18:26
标题: [求助][讨论]循环赋值，这里错在哪了？(在线等)

'前提：窗体上有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

作者: fannky 时间: 2006-8-9 18:27
不好意思，网络问题，害我发了两次……[em31]

作者: 老鬼 时间: 2006-8-9 18:36
好像少了RST.MOVENEXT是不是？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)