主题：[求助]

谢谢老师能把我上传的表做个实例。我不知道哪里不对。

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

点击浏览该文件:应付款.table

谢谢老师

老师又要烦劳你了，怎样才能得到我上传图片上的（剩余欠款）结果。

此主题相关图片如下：剩余欠款.png

If e.DataCol.Name = "客户ID" Then
    Dim Filter As String = "[客户ID] = '" & e.NewValue & "'"
    e.DataTable.ReplaceFor("采购金额", Nothing, filter)
    e.DataRow("采购金额") = DataTables("入库明细").Compute("Sum(入库_金额)", Filter)
Else If e.DataCol.Name = "付款_金额" OrElse e.DataCol.Name = "采购金额" Then
    Dim fk As Double = e.DataTable.Compute("sum(付款_金额)", "客户id = '" & e.DataRow("客户id") & "' and _Identify <= " & e.DataRow("_Identify"))
    Dim Filter As String = "[客户ID] = '" & e.DataRow("客户id") & "'"
    Dim cg As Double = DataTables("入库明细").Compute("Sum(入库_金额)", Filter)
    e.DataRow("剩余欠款") = cg - fk
End If

太感谢老师了

 

狐狸老师好，我要统计每个ID号付款的累计数我在应收款表中增加了一列累计付款列希望能在最后一行显示付款的累计数。谢谢

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

点击浏览该文件:应付款.table

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

 

老师谢谢，根据客户ID号只显示在最后一行其余的不显示。

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 i As Integer = 0 To drs.Count - 1
            Dim dr = drs(i)
            If i = drs.Count - 1 Then
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [客户id] = '" & dr("客户id") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(付款_金额)",Filter)
                dr("累计付款") = Val1
            Else
                dr("累计付款") = Nothing
            End If
        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 i As Integer = 0 To drs.Count - 1
                Dim dr = drs(i)
                If i = drs.Count - 1 Then
                    Filter = "[_SortKey] <= " & dr("_SortKey") & " And [客户id] = '" & dr("客户id") & "'"
                    Dim Val1 As Double = e.DataTable.Compute("Sum(付款_金额)",Filter)
                    dr("累计付款") = Val1
                Else
                    dr("累计付款") = Nothing
                End If
            Next
        End If
End Select