我想用数据库值动态设置一些文本框值。
我尝试使用类似于下面的内容,但是出现以下编译错误:无法分配为只读属性。的。名称=被突出显示。
是否可以通过这种方式分配文本框值?
Dim x As Integer
For x = 1 To 30
Form1.RS.Fields(x).Name = RS.Fields(x).Value
Next
您可以尝试使用以下形式的控件集合:
Dim x As Integer
For x = 1 To 30
Form1.Controls(RS.Fields(x).Name).Text = RS.Fields(x).Value
Next
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句