If e.IsFocusCell Then '如果是焦点所在单元格
If e.Col.Name = "表名" Then '如果正在编辑的是县市列
Dim sz() As String = {"动态列表","Code","动态列表","动态列宽列显设置","Users","授权表"}
Dim Listsz As new List (of String)
Listsz.AddRange(sz)
Dim ListTbName As String
For Each tb As Table In Tables
If Listsz.Contains(tb.name) = False Then
ListTbName = ListTbName & "|" & tb.name
End If
Next
ListTbName = ListTbName.trim("|")
e.Col.ComboList = ListTbName
ElseIf e.Col.Name = "分组名" Then
'=======生成分组名列表=======
Dim ListUserGroup As String
For Each us As UserInfo In users
ListUserGroup = ListUserGroup & "|" & us.Group
Next
ListUserGroup = ListUserGroup.trim("|")
e.Col.ComboList = ListUserGroup
ElseIf e.Col.Name = "用户名" Then
If e.Row.IsNull("分组名") Then
e.Col.ComboList = Nothing
Else
e.Col.ComboList = DataTables("Users").GetComboListString("Name","Type=2 and Config like '%" & chr(11) & e.Row("分组名") & chr(11) & "%'")
End If
End If
End If
加好友 
发短信
Post By：2019/9/17 17:07:00 [显示全部帖子]
