主题：有关CheckedComboBox全部选中

Enter事件：

e.Sender.Combolist = "全选" & "|" & DataTables("表A").GetComboListString("第一列")

Leave事件：

If e.Sender.Text.Contains("全选") Then
    e.Sender.Text = e.Sender.Combolist.Replace("全选","").Trim("|")
End If