在我进行到第一次机房上机系统的时候,因为代码量很多,comboBox控件也很多,所以能不能在不改变功能的同时,减少代码量呢?
#问题
因为机房上机系统的组合查询本身逻辑就比较复杂,而且comboBox控件较多,如果每个控件都用"AddItem"属性来添加默认值,不仅工作量大,还会让我们在开发的时候被感头疼,那么能不能用简单的方法来解决这个问题呢?
#设想
因为字段名的三个comboBox中的下拉框的内容都是相同的,那么我们能不能利用控件数组来解决这个问题呢?
#解法
首先、将我们要添加到comboBox一个数组中,然后利用循环,将其赋值!
#代码
注意:这里我利用的操作员工作记录来举例
Dim Field(6) As String '定义字段名数组,这里comboBox需要6个默认值,所以我定义6个长度的数组
Dim i%, j% '设置循环变量
'给数组添加初始值
Field(0) = "教师" ’大家注意,每一个数组的第一个代号是“0”
Field(1) = "注册日期"
Field(2) = "注册时间"
Field(3) = "注销日期"
Field(4) = "注销时间"
Field(5) = "机器名"
'利用双层for循环给字段名添加默认值
For j = 0 To 2 ’给每一个控件赋值
For i = 0 To 5 ‘确定一个控件,赋值
comboField(j).AddItem Field(i)
Next i
Next j
总结:当我有了想法, 但是并没有想起数组,所以非常感谢祥铭师傅的指点,成功的站在了巨人的肩膀上!但是一开始想用一行语句给数组赋值,但是最后并没有完成,如果您有方法,非常欢迎你的呢指点!
结束语:感谢你的阅读!