主题：[求助]自动重置列

现有两个表：

表1是订单表，表2是订单收款表，现希望实现当表2中“差额”列计算出来时，在表1“收款状态”列中自动输入文字，不希望通过点击“重置列”实现

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

点击浏览该文件:订单收款.foxdb

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

用下面的代码

If e.DataCol.Name = "销售单号" Then
    Dim dr As  DataRow = DataTables("销售订单").Find("销售单号 = '" & e.DataRow("销售单号") &"'")
    e.DataRow("应收总金额") = dr("金额")
End If

If e.DataCol.Name = "应收总金额" OrElse e.DataCol.Name = "实收总金额" Then
    Dim dr As  DataRow = DataTables("销售订单").Find("销售单号 = '" & e.DataRow("销售单号") &"'")   
    If e.DataRow("差额") >= 0
        dr("收款状态") = "已收款"
    ElseIf e.DataRow("实收总金额") > 0 Then
        dr("收款状态") = "款项未付清"
    Else
        dr("收款状态") = "未收款"
    End If
End If