主题：[求助]

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

DataColChanged事件

If e.DataCol.Name = "客户ID" Then
    Dim Filter As String = "[客户ID] = '" & e.NewValue & "'"
    Dim fdr As DataRow = e.DataTable.Find(filter)
    If fdr Is Nothing Then
        e.DataRow("采购金额") = DataTables("入库明细").Compute("Sum(入库_金额)", Filter)
    End If
End If

1、填入客户id号，如果id没有重复，就会执行统计的代码；

2、如果id重复，就不会执行统计的代码；

3、要重置，也要重置客户id列啊

Datacolchanged事件，加入代码

 Select Case e.DataCol.Name
    Case "客户id","付款_金额"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [客户id] = '" & e.DataRow("客户id") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [客户id] = '" & dr("客户id") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(付款_金额)",Filter)
            dr("累计付款") = Val1
        Next
        If e.DataCol.Name = "客户id" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [客户id] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [客户id] = '" & dr("客户id") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(付款_金额)",Filter)
                dr("累计付款") = Val1
            Next
        End If
End Select

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