主题：[求助]显示符合条件的记录数、记录金额

我的“全部”按钮代码如下：

 

Dim mfdw As WinForm.ComboBox = e.Form.Controls("买方单位")

mfdw.text=""

Tables("应收账款池表").sort = "应收账款到期日,买方企业全称"

Tables("应收账款池表").Filter = ""

 

 

我希望：如果有出池的记录（就是"应收账款到期日”《今天的记录，以红色提醒的记录），就以信息框的形式显示"今天有N条记录，累计金额M元需要出池“

 

           同时提示”未来15天有N条记录，累计M元金额到期，请准备新的应收账款“

 

 

代码怎么写

出现：不存在“应收帐款池表"的Tables.    的错误提示    是怎么回事呢？

此外，“出池”操作中也出现错误，出池代码如下：

 

 

If MessageBox.Show("是否出池?","请确认:",MessageBoxButtons.YesNo) = DialogResult.Yes Then 
    Dim dt_s As DataTable = DataTables("应收账款池表")
    Dim dt_d As DataTable = DataTables("出池明细表")
    Dim count = dt_s.DataRows.Count
    Dim sum1 As Double = dt_s.Compute("sum(fa piao金额)")

    Dim f As New Filler
    f.SourceTable = dt_s '指定数据来源
    f.DataTable = dt_d '指定数据接收表
    f.Filter = "应收账款到期日 < #" & Date.Today & "#"
    f.Fill() '填充数据
   
   
    dt_s.DeleteFor("应收账款到期日 < #" & Date.Today & "#")
   
    msgbox(count - dt_s.DataRows.Count)  

    Dim sum2 As Double = dt_s.Compute("sum(fa piao金额)")
    Dim jine As Double = sum1 - sum2
    Dim fdr As DataRow = DataTables("融资金额质押率变动表").Find("日期 is not null", "_Identify desc")
    If fdr IsNot Nothing Then
        fdr("出池金额") = jine
    End If
End If

dim count as integer = tables("应收帐款池表").compute("count(_Identify)", "应收帐款到期日 = #" & date.today & "#")

 

 

哪儿要该呢？

把“金额”改为“fa piao金额”就没有出现没有“应收账款池表”的错误提示了，但还是提示错误：