- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何获取列表项目来源于数据表的复选框的已选项目值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44455)
-- 发布时间：2013/12/31 16:04:00
-- [求助]如何获取列表项目来源于数据表的复选框的已选项目值
如题。窗口1含一个复选列表框，其列表项目来源于数据表“数据字典”，而表A的第一列在PrepareEdit事件中设定了其DropForm为窗口1.
当我实际操作时，选择好项目后按确定按钮就显示错误提示。如何获取复选列表框的已选项目值？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复选列表框项目显示.zip |
错误提示
此主题相关图片如下：qq截图20131231160211.png
-- 发布时间：2013/12/31 16:33:00
--
ListBOX的 SelectedItem 并不能返回行的
你可以利用Select根据勾选的值,查找到表中的行.
-- 发布时间：2013/12/31 16:59:00
--
正确的代码：
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 |
-- 发布时间：2013/12/31 17:02:00
--
学习学习!