主题：两个表中的数据计算问题

 猜一下，是不是这个意思？

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

点击浏览该文件:管理项目3.table

按钮代码

Dim r As Row = Tables("rkd").Current
If r IsNot Nothing Then
    Dim sum As Double = DataTables("rkdmx").Compute("sum(sl)", "wlbm = '" & Tables("rkd").Current("wlbh") & "'")
    If r("rksl") - sum > 0 Then
        Dim dr As DataRow  = DataTables("rkdmx").AddNew
        dr("wlbm") = r("wlbh")
        dr("ckmc") = r("ck")
        dr("id") = r("id")
        dr("sl") = r("rksl") - sum
    End If
End If