| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码不执行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174794) |
| -- 作者：lgz518 -- 发布时间：2022/2/6 13:55:00 -- 代码不执行 下面代码，只对正表，副表不执行，如何改为副表有效： For Each r As Row In Tables("物料明细").GetCheckedRows \' Dim nma() As String = {"产品编号","品名","产地"} \' Dim nmb() As String = {"产品编号","品名","产地"} \' Dim dr As Row = Tables("入库主表.入库明细").AddNew \' For i As Integer = 0 To nma.Length - 1 dr(nmb(i)) = r(nma(i)) Next Next
|
| -- 作者：有点蓝 -- 发布时间：2022/2/7 8:28:00 -- 副本肯定也有效。如果副本加了筛选条件，不符合条件的数据只是看不到，但是数据是在的。 或者改为使用副本名称 Dim dr As Row = Tables("窗口1_table1").AddNew
[此贴子已经被作者于2022/2/7 8:28:38编辑过]
|
| -- 作者：lgz518 -- 发布时间：2022/2/7 22:52:00 -- 老师，还是不行，不执行。 下面代码，是物料明细窗口用复选选中，导入入库关联明细表，正表，下面是可以，但换成副表，就不执行，改用您方法也不执行，如何解决？
For Each r As Row In Tables("物料明细").GetCheckedRows \' Dim nma() As String = {"产品编号","品名","产地"} \' Dim nmb() As String = {"产品编号","品名","产地"} \' \' Dim dr As Row = Tables("入库主表.入库明细").AddNew \' Dim dr As Row = Tables("窗口1_入库主表.入库明细").AddNew For i As Integer = 0 To nma.Length - 1 dr(nmb(i)) = r(nma(i)) Next Next |
| -- 作者：有点蓝 -- 发布时间：2022/2/7 22:58:00 -- 副本表名称不正确：http://www.foxtable.com/webhelp/topics/1906.htm |