Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim t As Table = CurrentTable
For i As Integer = 0 To t.Cols.Count - 1
Dim c As Col = t.Cols(i)
Dim s1() As String
Dim pr As DataRow = DataTables("设置表默认字段不显示").sqlfind("表名='" & t.name & "'")
If pr IsNot Nothing Then
s1 = pr("默认不可显示列名").Split(",")
For Each r1 As String In s1
If c.name Like r1 Then
clist.SetItemChecked(c.Index, c.Visible)
MessageBox.Show(c.Index)
Else
clist.SetItemChecked(c.Index, Not c.Visible)
End If
''*********************************************
Next
End If
Next
加好友 
发短信
Post By：2024/5/7 8:17:00 [显示全部帖子]
此主题相关图片如下：不能按条件勾选.jpg
