Dim t As Table = e.form.Controls("Table1").Table
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim s As String
Dim szlkdysx As WinForm.RadioButton = e.Form.Controls("shezhiliekuanyushunxu")
szlkdysx.Checked=True
e.Form.Controls("xiangyouButton").Enabled=True
e.Form.Controls("xiangzuoButton").Enabled=True
e.Form.Controls("yincangsuoxuanlie").Enabled=False
If sjdcxzb="客户资料窗体" Then
t.DataSource =DataTables("客户资料")
t.Filter = forms("客户资料窗体").Controls("Table1").Table.Filter
Dim fdr As DataRow = DataTables("列设置").Find("表名 = '" & t.Name & "'And 用户 ='" & User.Name &"'")
If fdr IsNot Nothing Then
t.SetColVisibleWidth(fdr("设置"))
End If
s = ""
For Each c As Col In t.cols
c.visible = True
If c.name = "电话1" OrElse c.name = "电话2" OrElse c.name = "电话3" Then
If User.Name = "abc" Then
c.visible = False
Else
c.Visible = True
End If
End If
If c.name = "电话1掩码" OrElse c.name = "电话2掩码" OrElse c.name = "电话3掩码" Then
If User.Name <> "开发者" AndAlso User.Name <> "管理员" Then
c.visible = False
Else
c.visible = True
End If
End If
Next
s = ""
For Each c As Col In t.cols
If c.visible Then
s = s & "|" & c.name
End If
Next
lieming.ComboList=s
'If sjdcxzb="客户资料窗体" Then
't.DataSource =DataTables("客户资料")
't.Filter = forms("客户资料窗体").Controls("Table1").Table.Filter
't.SetColVisibleWidth(forms("客户资料窗体").Controls("Table1").Table.GetColVisibleWidth())
's = ""
'For Each c As Col In t.cols
'If c.Visible Then
's &= c.name & "|"
'End If
'Next
'lieming.ComboList=s
ElseIf sjdcxzb="销售窗体" Then
t.DataSource =DataTables("销售表")
t.Filter =forms("销售窗体").Controls("Table1").Table.Filter
t.SetColVisibleWidth(forms("销售窗体").Controls("Table1").Table.GetColVisibleWidth())
s = ""
For Each c As Col In t.cols
If c.Visible Then
s &= c.name & "|"
End If
Next
lieming.ComboList=s
ElseIf sjdcxzb="出库窗体" Then
t.DataSource =DataTables("出库表")
t.Filter =forms("出库窗体").Controls("Table1").Table.Filter
t.SetColVisibleWidth(forms("出库窗体").Controls("Table1").Table.GetColVisibleWidth())
s = ""
For Each c As Col In t.cols
If c.Visible Then
s &= c.name & "|"
End If
Next
lieming.ComboList=s
End If
't.AllowDragColumn=False
加好友 
发短信
Post By：2019/3/21 23:07:00 [只看该作者]
