AfterLoad事件
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")For Each dc As Col In Tables("职工一览表").Cols ckl.Items.Add(dc.name)Next