[求助]一个关于控件赋值的问题

shable

例如有一表字段如下：
工号，姓名，性别，出生日期..........共25个字段。
有一窗体中控件名称与表字段相同，但未绑定表。
代码如下：
Private Sub Form_Load()
   Dim rst1 As ADODB.Recordset
   Set rst1 = New ADODB.Recordset
   rst1.Open "员工表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   Dim Zdm(24)   '存放字段名的数组0~24共25个
   Dim i
   For i = 0 To 24
      Zdm(i) = rst1.Fields(i).Name   '取出字段名准备用作窗体中控件名称
   Next i
   
   rst1.MoveLast   '将记录指针移到最底部
   '准备对窗体中控件赋值，相当于 DoCmd.GoToRecord , , acLast   
   '接下来的代码写不成了，总出错！哪位高手指教一下，先谢了!

   Dim j
   For i=0 to 24
      j=Zdm(i)
      '如何使 j 成为控件名呢？
      控件名=rst1.Fields(i)   '对控件赋值而非绑定
   Next
End Sub

[此贴子已经被作者于2006-3-16 15:11:22编辑过]

cg1

   For i=0 to 24
      j=Zdm(i)
      '如何使 j 成为控件名呢？
      me.controls(j).value=rst1.Fields(i)   '对控件赋值而非绑定
   Next
End Sub







http://access911.net 上有你要等所有ACCESS资料

shable

多谢版主指教！