主题：下拉窗口再打开时，复选框还能再根据Dropbox内容恢复勾选吗？

下拉窗口再打开时，复选框还能再根据Dropbox内容恢复勾选吗？

下拉菜单展开前代码

Dim lb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
lb.ComboList = DataTables("表A").GetComboListString("业务员")
e.Form.baseform.Width = e.Form.DropDownBox.Width

关闭后代码

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
    If s > "" Then
        s = s & ","
    End If
    s = s & "'" & l.Items(Index) & "'"
Next

If s > "" Then
       Forms("父窗口").Controls("DropBox1").text = s
End If