- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树多选这样不行吗 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95237)
-- 发布时间：2017/1/13 19:24:00
-- 目录树多选这样不行吗
目录树多选为什么下面的方法不行呢？求老师指点
Dim t As Table = Tables("退货出库单子表")
For Each r As Row In Tables("入库单父子表").GetCheckedRows
Dim nr As Row = t.AddNew
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
Next
此主题相关图片如下：目录树多选.jpg
[此贴子已经被作者于2017/1/13 19:24:38编辑过]
-- 发布时间：2017/1/13 21:23:00
--
没看懂你要做什么
-- 发布时间：2017/1/14 14:31:00
--
首先向有点蓝老师说声抱歉，昨天忘了发在哪个模块里面，所以又重发了，非常抱歉浪费了你的时间
如图所示，我在子表里面点击一下...,弹出一个对话框，然后我选择多条记录，点击确定，就会把这些多条记录填加在子表中
不知道这个确定的click的事件怎么写，请老师指点
此主题相关图片如下：例如.jpg
-- 发布时间：2017/1/14 15:16:00
--
代码没有问题哦。退货出库单窗口的表格是不是副本表？或者是关联表？
-- 发布时间：2017/1/14 19:41:00
--
弹窗是副本表，我修改成了以下代码，结果点击确定，什么也没有返回
Dim t As Table = Tables("退货出库单子表")
For Each r As Row In Tables("入库单父子表目录树_table1").GetCheckedRows
Dim nr As Row = t.AddNew
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
Next
Forms("入库单父子表目录树").close()
[此贴子已经被作者于2017/1/14 21:05:49编辑过]
-- 发布时间：2017/1/14 21:16:00
--
我经过三步的messagebox.show测试，代码运行完成后，没提示错误，但是就是没有数据填充去，子表数据依然是空白
Dim t As Table = Tables("退货出库单子表")
messagebox.show("1")
For Each r As Row In Tables("入库单父子表目录树_table1").GetCheckedRows
messagebox.show("2")
Dim nr As Row = t.AddNew
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
Next
messagebox.show("3")
后来我发现在系统模式下，数据是已经填充去了，但是在用户模式下，什么也看不到
接着下面（附件上传后看不到，没有办法只有接着回复）
[此贴子已经被作者于2017/1/14 21:57:08编辑过]
-- 发布时间：2017/1/14 21:57:00
--
此主题相关图片如下：qq图片20170114215020.png
数据库中查看，单号和内容本来应该在两行中，现在变成了4行，错位了
-- 发布时间：2017/1/14 22:26:00
--
补充一下：一行一行的选择是没有问题的，系统模式和用户模式都能正常，在系统模式下，多行一起选择，正常，在用户模式下，多行一起选择，在用户模式下看到为空白，但是在系统模式下看数据表，发现如上图现象，比如选择了鼠标和光电套装，应该分别显示在20170119-001后面才对，结果下来了两行
-- 发布时间：2017/1/15 10:45:00
--
根据老师的提示，我参考了以前的代码，原来是关联表引起的错误，这个子表不是“退货出库单子表”，而是“退货出库单父表.退货出库单子表”，我用了关联，需要用关联去定义，谢谢提醒，已解决。
[此贴子已经被作者于2017/1/15 10:45:44编辑过]
-- 发布时间：2017/1/15 11:16:00
--
用副本表也可以，你需要给关联列赋值
Dim t As Table = Tables("退货出库单子表")
For Each r As Row In Tables("入库单父子表目录树_table1").GetCheckedRows
Dim nr As Row = t.AddNew
nr("单号") = Tables("退货出库单父表").Current("单号")
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
Next
Forms("入库单父子表目录树").close()