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

代码

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