主题：复选框选中后，再点开不选中

你可以在DropDownOpening事件设置代码：

http://www.foxtable.com/webhelp/scr/2114.htm

代码大概如下：

if  e.dropdownBox.Text > "" then

    Dim lst As New List(of String）

    lst.Addrange(e.DropDownBox.Text.split(","))

    For each r as Row in Tables("表名").Rows

         r.Checked = lst.Contains(r("附件"))

    Next

end if