以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 填充条件:有勾选复选框的才填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46882) |
||||
-- 作者:fubblyc -- 发布时间:2014/2/28 16:49:00 -- 填充条件:有勾选复选框的才填充 要想让窗口中的查询表{VIP基本信息表}有勾选,点击窗口中的发送短信,然后把有勾选的行填充到 提交短信 窗口中的{收信人}的表中: 要怎么做呢?
|
||||
-- 作者:Bin -- 发布时间:2014/2/28 17:01:00 -- .
|
||||
-- 作者:supwork -- 发布时间:2014/2/28 18:54:00 -- ding |
||||
-- 作者:fubblyc -- 发布时间:2014/2/28 19:41:00 -- 谢谢Bin老师!! |
||||
-- 作者:fubblyc -- 发布时间:2014/3/4 15:46:00 -- Bin老师,可能是我还没理解这句代码的意思,我在收信人的这张表里增加了“回访类别”就出错了,你帮我看下。。 |
||||
-- 作者:fubblyc -- 发布时间:2014/3/4 15:46:00 -- 附件: after load 的代码: For Each r As Row In Tables("VIP基本信息_VIP基本信息").GetCheckedRows Dim rr As Row = Tables("VIP基本信息提交短信_收信人").AddNew For Each c As Col In Tables("VIP基本信息提交短信_收信人").Cols If c.Name<>"内容" Then rr(c.name)=r(c.name) End If Next Next [此贴子已经被作者于2014-3-4 15:47:05编辑过]
|
||||
-- 作者:Bin -- 发布时间:2014/3/4 15:47:00 -- 你没有对应的列,自己对比一下不就发现了吗 |
||||
-- 作者:fubblyc -- 发布时间:2014/3/4 16:14:00 -- 但是 “内容”这一列在Tables("VIP基本信息_VIP基本信息").里也没有对应的。。。 |
||||
-- 作者:fubblyc -- 发布时间:2014/3/4 16:17:00 -- 哈,可以啦。我懂了 If c.Name<>"内容" and c.Name<>"回访类别" Then 就可以了
|