Dim ty As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Select Case user.Group
Case "测试epon","测试router","测试IEswitch","测试switch"
ty.Enabled = True
DataTables("软硬件对照表").LoadFilter = "测试组名 = '" & user.group & "'"
DataTables("软硬件对照表").Load
Tables("组查询版本_table2").DataTable.loadfilter = "测试组名 = '" & user.group & "'"
Tables("组查询版本_table2").DataTable.load
Case Else
ty.Enabled = False
DataTables("软硬件对照表").LoadFilter = ""
DataTables("软硬件对照表").Load
Tables("组查询版本_table2").DataTable.loadfilter = ""
Tables("组查询版本_table2").DataTable.loadfilter
End Select
此主题相关图片如下：12344.jpg
加好友 
发短信
Post By：2018/11/5 11:24:00 [显示全部帖子]
