主题：复选组合框问题

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

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

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

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

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

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

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

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

“主题”都是：中国，

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

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

点击浏览该文件:管理项目1.table

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

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

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

 

中法人民共和国????????  

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

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