感谢“有点甜”,继续请教如下:
1。
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 & "#")
End If
代码如上,执行后发现“出池明细表”内容没有,应该有出池的应收账款明细的。是否需要添加"SAVE“之类的操作,错在哪儿?
2,在”融资金额变动表“中的”应收质押金额“就是”应收账款池“表的fa piao金额合计值,我现在是手工输入的,如何引用fa piao金额的合计值。