Office中国论坛/Access中国论坛

标题: 能不能通过变量引用控件名称 [打印本页]

作者: lazybird 时间: 2011-12-15 17:24
标题: 能不能通过变量引用控件名称
例如想通过一个数组变量引用多个控件名称的时候，代码应该怎么写？

下面是错误的代码，版主帮忙看看正确的应该是怎么写的。

Dim arrP()
arrP = Array("Trap1", "Cal1")

sMax = DLookup("Max", "spec", "n= '18882222' And Parameter = '& arrP(0) &'")
sMin = DLookup("Min", "spec", "n= '18882222' And Parameter = '& arrP(0) &'")

Set objFrc = Me.arrP(0).FormatConditions.Add(acFieldValue, acGreaterThan, sMax)
Me.arrP(0).FormatConditions(0).BackColor = 255
Set objFrc = Me.arrP(0).FormatConditions.Add(acFieldValue, acLessThan, sMin)
Me.arrP(0).FormatConditions(1).BackColor = 255

  Set objFrc = Me.arrP(1).FormatConditions.Add(acFieldValue, acEqual, "OK")
Me.arrP(1).FormatConditions(0).BackColor = 255

作者: andymark 时间: 2011-12-15 21:07
不知你指那个变量，传示例

作者: lazybird 时间: 2011-12-16 00:11
比如说，我的窗体上有文本框 "Trap1", "Cal1" ...等许多个，我希望能通过一个循环这些文本框进行设置，代码应该怎么写？
用数组变量行吗？

（示例中只有4，5个文本框，但我实际中需要用到上百个。不用循环的话代码很难维护）

作者: 醉在风中 时间: 2012-1-4 23:59
用for each循环解决。。。。查查资料

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