以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  副表使用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187439)

--  作者:lin98
--  发布时间:2023/7/18 16:44:00
--  副表使用问题
Dim Cols3() As String = {"编号", "型号", "规格", "数量", "日期"}\'
Dim Cols4() As String = {"编号", "型号", "规格", "数量", "日期"}\'
For Each dr3 As DataRow In DataTables("表A").Select("[选中] = true ")\'

        Dim dr4 As Row = Tables("窗口1_表B").AddNew() \'
        For r As Integer = 0 To Cols3.Length - 1
            dr4(Cols4(r)) = dr3(Cols3(r)) 
        Next

Next

红字代码,报错Row不是DataRow,改为下面代码,也不行
For Each dr3 As  Row In DataTables("表A").Select("[选中] = true ")\'

窗口1_表B是副表,是 Dim dr4 As Row = Tables("窗口1_表B").AddNew() ,只能正表,不能用副表?

--  作者:有点蓝
--  发布时间:2023/7/18 16:58:00
--  
下面2句代码都没有问题,不可能会提示这个错误,肯定是其它代码的问题

For Each dr3 As DataRow In DataTables("表A").Select("[选中] = true ")\'

        Dim dr4 As Row = Tables("窗口1_表B").AddNew() \'