- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口关联表数据引用问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134956)
-- 发布时间：2019/5/13 21:36:00
-- 窗口关联表数据引用问题？
一个入库单关联主表和明细表做成窗口，从产品表窗口批量选择录入产品时，用几个方法都都不行，这个应该怎么写呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:录入例子.foxdb |
-- 发布时间：2019/5/13 22:14:00
--
确认现在按钮
Dim drs As List(Of DataRow) = DataTables("产品表").Select("[选择] = True")
For Each dr As DataRow In drs
Dim yu As Row = Tables("入库.明细").AddNew()
yu("料号") = dr("料号")
Next
e.Form.Close()
-- 发布时间：2019/5/14 6:50:00
--
开始我代码这样的
\'Dim drs As List(Of DataRow) = DataTables("产品表").Select("[选择] = True")
\'Dim yu As Row = Tables("入库.明细").AddNew()
\'For Each dr As DataRow In drs
\'yu("料号") = dr("料号")
\'Next
e.Form.Close()
但是只能增加一行，难道是第二行代码和三行代码前后问题？
[此贴子已经被作者于2019/5/14 6:56:35编辑过]
-- 发布时间：2019/5/14 9:18:00
--
照抄2楼代码即可。addnew要写在循环里面。