以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 非关联表同步  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122534)

--  作者:mikee
--  发布时间:2018/7/27 15:07:00
--  [求助] 非关联表同步
有三张表, 订单表和订单详情表为关联的父子表, 临时表为第三张表

现想把临时表中的数据按订单表的订单编号同步到关联的子表,一直会报如下图片中的错误, 请问是哪里出错? 


For Each r As Row In Tables("订单").Rows
    If r("订单状态") = "未完结"  Then
        Dim drs As List(Of DataRow)
        drs = DataTables("临时表").Select("订单号= \'" & r("订单号") & "\'")
        If drs IsNot Nothing Then
            Dim hs As Integer = drs.count
            For i = 0 To hs
                Dim Ar As DataRow = DataTables("订单详情").addnew()
                Ar("Id") = drs(i)("ID")
                Ar("料号") = drs(i)("料号")
                Ar("数量") = drs(i)("数量")
            Next
        End If
    End If
Next

--  作者:Mikee
--  发布时间:2018/7/27 15:08:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:errors.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/7/27 15:14:00
--  
For Each r As Row In Tables("订单").Rows
    If r("订单状态") = "未完结"  Then
        Dim drs As List(Of DataRow)
        drs = DataTables("临时表").Select("订单号= \'" & r("订单号") & "\'")
        Dim hs As Integer = drs.count-1
        For i = 0 To hs
            Dim Ar As DataRow = DataTables("订单详情").addnew()
            Ar("Id") = drs(i)("ID")
            Ar("料号") = drs(i)("料号")
            Ar("数量") = drs(i)("数量")
        Next
       
    End If
Next