以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码不执行  (http://foxtable.net/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