标题：复选组合框问题

1楼

wqc360 发表于：2010/11/15 13:03:00

如示范文件窗口，怎样实现复选组合框多选时，点确定按钮，表A新增行数为复选组合框选中数，

新增行“收件人”分别=复选组合框姓名，

新增行“主题”=窗口控件“主题”的值，

新增行“内容”=窗口控件“内容”的值

（如复选组合框选中张三；李四，

窗口控件“主题”为：中国，

窗口控件“内容”为：中华人民共和国。

则表A新增2行，“收件人”分别是张三和李四，

“主题”都是：中国，

“内容”都是：中华人民共和国）谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2010-11-15 13:26:06编辑过]

2楼

mr725 发表于：2010/11/15 13:11:00

Dim sjr As String = Forms("窗口1").Controls("姓名").text

CurrentTable.addnew(sjr.split(",").length)

3楼

mr725 发表于：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

4楼

mr725 发表于：2010/11/15 13:21:00

中法人民共和国???????? 图片点击可在新窗口打开查看

5楼

wqc360 发表于：2010/11/15 13:29:00

谢谢mr725兄，华---法实来笔误，幸好不是搞政治的，四人帮也不横行了，呵呵。

6楼

mr725 发表于：2010/11/15 13:32:00

以下是引用wqc360在2010-11-15 13:29:00的发言：
谢谢mr725兄，华---法实来笔误，幸好不是搞政治的，四人帮也不横行了，呵呵。

以为你要当开‘国’总统了，呵呵～

共6 条记录, 每页显示 10 条, 页签: [1]