Office中国论坛/Access中国论坛

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

作者: fannky 时间: 2006-8-9 18:23
标题: [求助][讨论]循环赋值，这里错在哪了？(在线等)
'前提：窗体上有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 时间: 2006-8-9 18:31
试一下:Ctr = Rst(Ctr.name)

作者: andymark 时间: 2006-8-9 18:32
try:

Rst.Fields("" & Ctr)

or

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

作者: fannky 时间: 2006-8-9 18:41

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

谢谢，解决了

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

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

作者: tz-chf 时间: 2006-8-9 19:28
参考《Access 2000中文版开发指南》p622，优化查询和窗体

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