主题：[求助] 同表不同列的数据如何引用呢？

上个月的条件，参考

"日期 < #" & new Date(Date.Today.Year, Date.Today.Month, 1) & "#"

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

 不明白你什么意思，你输入日期、输入客户名，之后就能统计结果了的。

 我测试没有问题。

代码

If e.DataCol.name = "客户代号" Then
    Dim dr As DataRow = e.DataRow
    Dim filter As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 收款日期 <= #" & e.DataRow("制单日期") & "# and 已入账 = False "
    Dim filter2 As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 制单日期 < #" & new Date(e.DataRow("制单日期").Year, e.DataRow("制单日期").Month, 1) & "#"
    dr("本月已收金额") = DataTables("收款主表").Compute("sum(收款金额)",filter)
    Dim fdr As DataRow = e.DataTable.find(filter2, "制单日期 desc")
    If fdr IsNot Nothing Then
        fdr("上月结余金额") = fdr("累计应收金额")
    End If
    DataTables("收款主表").ReplaceFor("已入账", True, filter)
End If 

 呵呵，写错了，

If e.DataCol.name = "客户代号" Then
    Dim dr As DataRow = e.DataRow
    Dim filter As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 收款日期 <= #" & e.DataRow("制单日期") & "# and 已入账 = False "
    Dim filter2 As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 制单日期 < #" & new Date(e.DataRow("制单日期").Year, e.DataRow("制单日期").Month, 1) & "#"
    dr("本月已收金额") = DataTables("收款主表").Compute("sum(收款金额)",filter)
    Dim fdr As DataRow = e.DataTable.find(filter2, "制单日期 desc")
    If fdr IsNot Nothing Then
        dr("上月结余金额") = fdr("累计应收金额")
    End If
    DataTables("收款主表").ReplaceFor("已入账", True, filter)
End If

代码

If e.DataCol.name = "客户代号" Then
    Dim dr As DataRow = e.DataRow
    Dim d As Date = new Date(e.DataRow("制单日期").Year, e.DataRow("制单日期").Month, 1)
    Dim filter As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 收款日期 >= #" & d & "# and 收款日期 < #" & d.addmonths(1) & "# and 已入账 = False "
    Dim filter2 As String = "客户代号 = '" & e.DataRow("客户代号") & "' And 制单日期 < #" & d & "#"
    dr("本月已收金额") = DataTables("收款主表").Compute("sum(收款金额)",filter)
    Dim fdr As DataRow = e.DataTable.find(filter2, "制单日期 desc")
    If fdr IsNot Nothing Then
        dr("上月结余金额") = fdr("累计应收金额")
    End If
    DataTables("收款主表").ReplaceFor("已入账", True, filter)
End If