主题：[求助]两表间数据更新及对比

 直接查找 http://www.foxtable.com/help/topics/0396.htm

 

你判断一下是否为空 dr.Isnull("某列") 

 

1、如何对比，2、对比结果到哪里去。

 

 

Dim q As new QueryBuilder
q.TableName = "比较"
q.SelectString = "Select a.编码, c.第四列-a.第四列 As 第四列, c.第五列 - a.第五列 As 第五列 from {表A} a inner join {表C} c on a.编码 = c.编码"
q.Build
MainTable = Tables("比较")

 

 弄多少列，就写多少列

 你可以做一个窗口，弄一个按钮。

 

 http://www.foxtable.com/help/topics/0698.htm

 

 肯定正确。比较前先保存数据。

 什么麻烦？保存数据直接用代码 Datatables.save

For Each dr As DataRow In DataTables("表C").Select("编码 is not null")
    Dim fdr As DataRow = DataTables("表A").Find("编码 = '" & dr("编码") & "'")
    If fdr IsNot Nothing Then
        Dim ndr As DataRow = DataTables("表B").AddNew
        ndr("编码") = dr("编码")
        ndr("第四列") = val(dr("第四列")) - val(fdr("第四列"))
        ndr("第五列") = val(dr("第五列")) - val(fdr("第五列"))
    End If
Next
MainTable = Tables("表B")