- 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=8595)
-- 发布时间：2010/11/15 13:03:00
-- 复选组合框问题
如示范文件窗口，怎样实现复选组合框多选时，点确定按钮，表A新增行数为复选组合框选中数，
新增行“收件人”分别=复选组合框姓名，
新增行“主题”=窗口控件“主题”的值，
新增行“内容”=窗口控件“内容”的值
（如复选组合框选中张三；李四，
窗口控件“主题”为：中国，
窗口控件“内容”为：中华人民共和国。
则表A新增2行，“收件人”分别是张三和李四，
“主题”都是：中国，
“内容”都是：中华人民共和国）谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2010-11-15 13:26:06编辑过]
-- 发布时间：2010/11/15 13:11:00
--
Dim sjr As String = Forms("窗口1").Controls("姓名").text
CurrentTable.addnew(sjr.split(",").length)
-- 发布时间：2010/11/15 13:19:00
--
Dim sjr As String = Forms("窗口1").Controls("姓名").text
Dim n As Integer
For Each h As String In sjr.split(",")
CurrentTable.addnew
CurrentTable.current("收件人") = h
CurrentTable.current("主题") = Forms("窗口1").Controls("主题").text
CurrentTable.current("内容") = Forms("窗口1").Controls("内容").text
n = n+ 1
Next
-- 发布时间：2010/11/15 13:21:00
--
中法人民共和国????????
-- 发布时间：2010/11/15 13:29:00
--
谢谢mr725兄，华---法实来笔误，幸好不是搞政 治的，四人帮也不横行了，呵呵。
-- 发布时间：2010/11/15 13:32:00
--
以下是引用wqc360在2010-11-15 13:29:00的发言：
谢谢mr725兄，华---法实来笔误，幸好不是搞政 治的，四人帮也不横行了，呵呵。
谢谢mr725兄，华---法实来笔误，幸好不是搞政 治的，四人帮也不横行了，呵呵。
以为你要当开‘国’总统了，呵呵～