第一个问题，肯定是你没有合适的数据。你试试弹出date.today看看是否是今天的日期。
第二个问题，你说fa piao金额的合计值，根据融资金额表动表的什么条件和应收账池表的什么条件合计？
---------------
If MessageBox.Show("是否出池?","请确认:",MessageBoxButtons.YesNo) = DialogResult.Yes Then
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 & "#")
msgbox(Date.Today)
End If
[此贴子已经被作者于2013-11-2 20:32:03编辑过]
加好友 
发短信
Post By：2013/10/29 23:25:00 [显示全部帖子]
