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

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