主题：这个错误怎么改？

把你写的DataTable改成DataTables不就好了？

加入判断

 

If nm > "" Then

    '其余代码 Dim dr As DataRow = ......

End If

For Each nm As String In DataTables("明细账表").GetValues("售出日期")
    Dim dr As DataRow = DataTables("总账表").addnew()
    If nm>"" Then
        dr("售出日期") = nm
        dr("总账_售出张数")=DataTables("明细账表").compute("sum(明细账_售出张数)","售出日期= #" & nm & "#")
        dr("总账_售出金额")=DataTables("明细账表").compute("sum(明细账_售出金额)","售出日期= #" & nm & "#")
        dr("总账_售出废piao")=DataTables("明细账表").compute("sum(明细账_废piao)","售出日期= #" & nm & "#")
    End If
Next

1、代码

 

For Each nm As String In DataTables("明细账表").GetValues("售出日期")
    If nm>"" Then
        Dim dr As DataRow = DataTables("总账表").find("售出日期 = #" & nm & "#")
        If dr Is Nothing Then
            dr =  DataTables("总账表").AddNew
            dr("售出日期") = nm
        End If
        dr("总账_售出张数")=DataTables("明细账表").compute("sum(明细账_售出张数)","售出日期= #" & nm & "#")
        dr("总账_售出金额")=DataTables("明细账表").compute("sum(明细账_售出金额)","售出日期= #" & nm & "#")
        dr("总账_售出废piao")=DataTables("明细账表").compute("sum(明细账_废piao)","售出日期= #" & nm & "#")
    End If
Next

 

2、解锁行 http://www.foxtable.com/webhelp/scr/0111.htm

 

3、参考 http://www.foxtable.com/webhelp/scr/2490.htm

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关联2018年新账23 (1).table

 

肯定没问题的，你修改各个列的值，肯定能引用过去。

代码改一下

 

Select Case e.DataCol.name
    Case "明细账_领入起号","明细账_领入止号","明细账_领入张数","实物账_发出起号","实物账_发出止号","实物账_发出张数"
        Dim dr As DataRow = DataTables("实物账").Find("id = '" & e.DataRow("_Identify") & "'")
        If dr Is Nothing Then
            dr = DataTables("实物账").AddNew()
            dr("id") = e.DataRow("_Identify")
        End If
        dr("实物账_发出起号") = e.DataRow("明细账_领入起号")
        dr("实物账_发出止号") = e.DataRow("明细账_领入止号")
        dr("实物账_发出张数") = e.DataRow("明细账_领入张数")
End Select

 

如果要重新计算，记得重置列。尽量还是用id列作为唯一标记，这样两个表的数据可以一致。不然无法区别唯一。