能不能通过变量引用控件名称

lazybird

例如想通过一个数组变量引用多个控件名称的时候，代码应该怎么写？

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

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

不知你指那个变量，传示例

lazybird

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

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

醉在风中

用for each循环解决。。。。查查资料