主题：[求助]同步

老师，没有反应啊

汗，代码测试没问题。选定是 true，去掉勾选是 false

 

此主题相关图片如下：图像 4.png

先选中具体哪一个列名，再点按钮啊。

 

或者加判断

 

Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1") If lst.SelectedIndex >= 0 Then lst.SetItemChecked(lst.SelectedIndex, true)

老师，我是要全选和全退。

 Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = 0 To lst.Items.Count - 1
    lst.SetItemChecked(i, True)
Next

老师，两个并成一个。都谢老师。

Dim lst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
If e.Sender.Text = "全选" Then
    For i As Integer = 0 To lst.Items.Count - 1
        lst.SetItemChecked(i, True)
    Next
    e.sender.Text = "全不选"
Else
    For i As Integer = 0 To lst.Items.Count - 1
        lst.SetItemChecked(i, False)
    Next
    e.sender.Text = "全选"
End If

老师，下面代码在同步后排列不对了，把整个数据表的列都显示出来了。

 

e.Form.Controls("CheckedListBox1").Items.Clear

For Each c As Col In e.Form.Controls("Table1").Table.Cols
    e.Form.Controls("CheckedListBox1").Items.Add(c.name)
Next

.Form.Controls("CheckedListBox1").Items.Clear

For Each c As Col In e.Form.Controls("Table1").Table.Cols
    If c.Visible = True Then e.Form.Controls("CheckedListBox1").Items.Add(c.name)
Next