Foxtable(狐表)用户栏目专家坐堂 → 复选组合框问题


  共有12685人关注过本帖树形打印复制链接

主题:复选组合框问题

帅哥哟,离线,有人找我吗?
wqc360
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
复选组合框问题  发帖心情 Post By:2010/11/15 13:03:00 [只看该作者]

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

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

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

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

(如复选组合框选中张三;李四,

窗口控件“主题”为:中国,

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

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

“主题”都是:中国,

“内容”都是:中华人民共和国)谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/15 13:11:00 [只看该作者]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/15 13:21:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
wqc360
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/11/15 13:29:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/15 13:32:00 [只看该作者]

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

以为你要当开‘国’总统了,呵呵~ 


 回到顶部