主题：[求助]同步

 汗，具体例子呢？怎么知道你指什么。

要跟你说多少次？

 

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

 那就写到加载后面去。

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

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

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

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

 

或者加判断

 

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

.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