第一个问题,可以判断日期便可,如下代码。
第二个问题,不明白你想说什么
Dim dt_s As DataTable = DataTables("应收账款池表")
Dim dt_d As DataTable = DataTables("应收账款出池明细")
Dim f As New Filler
f.SourceTable = dt_s '指定数据来源
f.DataTable = dt_d '指定数据接收表
f.Filter = "应收账款到期日 <= #" & Date.Today & "#"
f.Fill() '填充数据
dt_s.DeleteFor("应收账款到期日 <= #" & Date.Today & "#")