Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表间记录剪贴和表间数据引用


  共有4083人关注过本帖树形打印复制链接

主题：[求助]表间记录剪贴和表间数据引用
帅哥哟，离线，有人找我吗？
ahbrq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：2412 威望：0 精华：0 注册：2013/9/29 20:41:00 		[求助]表间记录剪贴和表间数据引用  发帖心情 Post By：2013/10/29 22:59:00 [只看该作者]

请教2个问题：

 

1、每次操作，如果发现“应收账款池表”中有到期的应收账款，就把这些记录从“应收账款池表”移到“应收账款出池明细”表。

 

2、“融资金额变动表”中的“应收质押金额”就是“应收账款池”表的“fa piao金额”总计。

 

以上2点如何实现。谢谢。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:徽商银行应收账款质押池动态管理系统.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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 & "#")
 回到顶部
帅哥哟，离线，有人找我吗？
ahbrq
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：2412 威望：0 精华：0 注册：2013/9/29 20:41:00 		  发帖心情 Post By：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，在”融资金额变动表“中的”应收质押金额“就是”应收账款池“表的fa piao金额合计值，我现在是手工输入的，如何引用fa piao金额的合计值。

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/2 20:31:00 [只看该作者]

 第一个问题，肯定是你没有合适的数据。你试试弹出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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ahbrq
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：2412 威望：0 精华：0 注册：2013/9/29 20:41:00 		  发帖心情 Post By：2013/11/2 21:10:00 [只看该作者]

问题一：在”应收账款池“表中的今天到期的应收账款明细已经全部删除了，但是在”出池明细表“中没有被删除的记录。

问题二：”应收账款池“表的fa piao金额合计为2108万元，我希望在”融资金额变动表“的”应收质押金额“一栏自动引用，而不是手工填写。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/2 21:18:00 [只看该作者]

 第一个问题：代码不会有问题的，我在你的例子上测试没有任何问题。

 第二个问题：用这句代码写到表属性->事件datacolchanged里去，就可以统计了。
     e.datarow("应收质押金额") = DataTables("应收账款池表").Compute("sum(fa piao金额)")
[此贴子已经被作者于2013-11-2 21:18:48编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 5 次数据查询