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

如题。窗口1含一个复选列表框，其列表项目来源于数据表“数据字典”，而表A的第一列在PrepareEdit事件中设定了其DropForm为窗口1.

ListBOX的 SelectedItem 并不能返回行的

正确的代码：

 

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

学习学习!