| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]新增行赋值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80241) |
| -- 作者：l1q2lq -- 发布时间：2016/1/19 11:16:00 -- [求助]新增行赋值 If Tables("订单下达_Table1").rows.Count > 0 Then For Each r1 As Row In Tables("订单下达_Table1") Dim r2 As Row = Tables("订单供应商.采购清单").AddNew r2("零件号") = r1("零件号") r2("供应商名称") = r1("供应商名称") Next e.Form.close End If 这段代码无限新增行，请问是哪里有问题？
|
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:29:00 -- 如果Table1是采购清单表，就肯定会无限新增行啊。
关联表增加行，就是在采购清单新增行啊。 |
| -- 作者：l1q2lq -- 发布时间：2016/1/19 11:34:00 -- 以下是引用大红袍在2016/1/19 11:29:00的发言：
如果Table1是采购清单表，就肯定会无限新增行啊。
关联表增加行，就是在采购清单新增行啊。 Table1不是采购清单表，关联表和副本表没有关系 |
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:34:00 -- 上传例子，不可能。 |
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:35:00 -- 副本表就是 采购清单表 的副本啊，你逻辑肯定有问题。 |
| -- 作者：l1q2lq -- 发布时间：2016/1/19 11:43:00 -- 例子，订单下达窗口里的确定按钮 [此贴子已经被作者于2016/1/19 12:24:00编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:44:00 -- 数据库发上来。 |
| -- 作者：l1q2lq -- 发布时间：2016/1/19 11:48:00 -- [此贴子已经被作者于2016/1/19 12:23:41编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:53:00 -- 代码没问题啊，每点击一次，增加6行数据啊。 |
| -- 作者：大红袍 -- 发布时间：2016/1/19 11:55:00 -- 如果用1楼的代码，每次也增加一两行，正常啊。 |