共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：列设置不能多个勾选,只有1个可勾选

1楼

liuyixin662 发表于：2024/5/7 8:17:00

老师你好:上列代码能获取多个列的c.Index 的值,但勾选的只有一个,麻烦老师指点一下,谢谢!

2楼

liuyixin662 发表于：2024/5/7 8:18:00

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

''*********************************************

End If

3楼

有点蓝 发表于：2024/5/7 8:34:00

"CheckedListBox1"里显示的是什么内容？"设置表默认字段不显示"保存的优势什么内容？都截图看看

4楼

liuyixin662 发表于：2024/5/7 8:56:00

如图所示

此主题相关图片如下：不能按条件勾选.jpg

5楼

liuyixin662 发表于：2024/5/7 8:58:00

有点蓝老师，另2个隐藏字段分别为客户名称，数量

6楼

有点蓝 发表于：2024/5/7 9:03:00

"设置表默认字段不显示"表保存的是什么内容

7楼

liuyixin662 发表于：2024/5/7 9:03:00

隐藏列的条件表

此主题相关图片如下：隐藏条件表.jpg

8楼

有点蓝 发表于：2024/5/7 9:18:00

Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")

Dim t As Table = CurrentTable

Dim pr As DataRow = DataTables("设置表默认字段不显示").sqlfind("表名='" & t.name & "'")

If pr IsNot Nothing Then

s1 = pr("默认不可显示列名").Split(",")

For i As Integer = 0 To clist.Items.Count - 1

Dim s As String = clist.Items(i).split("(")(0)

If Array.IndexOf(s1, s) > -1 Then

clist.SetItemChecked(i, t.Cols(r1).Visible)

MessageBox.Show(i)

Else

clist.SetItemChecked(i, False)

End If

共8 条记录, 每页显示 10 条, 页签: [1]