- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表间记录剪贴和表间数据引用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41897)
-- 发布时间：2013/10/29 22:59:00
-- [求助]表间记录剪贴和表间数据引用
请教2个问题：
1、每次操作，如果发现“应收账款池表”中有到期的应收账款，就把这些记录从“应收账款池表”移到“应收账款出池明细”表。
2、“融资金额变动表”中的“应收质押金额”就是“应收账款池”表的“发票金额”总计。
以上2点如何实现。谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:徽商银行应收账款质押池动态管理系统.table |
-- 发布时间：2013/10/29 23:25:00
--
第一个问题，可以判断日期便可，如下代码。
第二个问题，不明白你想说什么
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 & "#")
-- 发布时间：2013/11/2 20:22:00
--
感谢“有点甜”，继续请教如下：
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，在”融资金额变动表“中的”应收质押金额“就是”应收账款池“表的发票金额合计值，我现在是手工输入的，如何引用发票金额的合计值。
-- 发布时间：2013/11/2 20:31:00
--
第一个问题，肯定是你没有合适的数据。你试试弹出date.today看看是否是今天的日期。
第二个问题，你说发票金额的合计值，根据融资金额表动表的什么条件和应收账池表的什么条件合计？
---------------
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编辑过]
-- 发布时间：2013/11/2 21:10:00
--
问题一：在”应收账款池“表中的今天到期的应收账款明细已经全部删除了，但是在”出池明细表“中没有被删除的记录。
问题二：”应收账款池“表的发票金额合计为2108万元，我希望在”融资金额变动表“的”应收质押金额“一栏自动引用，而不是手工填写。
-- 发布时间：2013/11/2 21:18:00
--
第一个问题：代码不会有问题的，我在你的例子上测试没有任何问题。
第二个问题：用这句代码写到表属性->事件datacolchanged里去，就可以统计了。
e.datarow("应收质押金额") = DataTables("应收账款池表").Compute("sum(发票金额)")
[此贴子已经被作者于2013-11-2 21:18:48编辑过]