主题：[求助]如何获取列表项目来源于数据表的复选框的已选项目值

正确的代码：

Dim 复选框 As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim str As String
For Each i As Integer In  复选框.CheckedIndices
    str = str & "," & 复选框.items(i)("代码")
Next
str = str.trim(",")
e.Form.DropDownBox.value = str
e.Form.DropDownBox.CloseDropdown

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目137.foxdb