主题：[求助]计算方法(外部表)

此主题相关图片如下：cb.png

参考：http://www.foxtable.com/webhelp/scr/2237.htm

http://www.foxtable.com/webhelp/scr/1572.htm

 

不合适啊用上面的方法，还请版主协助下

外部表是一个查询表，没有_identify和_SortKey字段

Dim t As Table = Tables("表A")
For Each kh As String In t.DataTable.GetValues("卡号")
    Dim pdr As DataRow = Nothing
    For Each dr As DataRow In  t.DataTable.Select("卡号 = '" & kh & "'")
        If pdr IsNot Nothing Then
            pdr("在制") = pdr("报废") - dr("报入")
        End If
        pdr = dr
    Next
Next