以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]不需要的红色提示和表间数据引用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42550) |
||||
-- 作者:ahbrq -- 发布时间:2013/11/14 21:55:00 -- [求助]不需要的红色提示和表间数据引用
请教2个问题:
1、”应收账款池表“的”小计汇总“行的颜色为什么是”逾期“的红色,应该没有颜色的。
2、在”导入“和”出池“操作后显示笔数和金额,同时导入和出池的金额在“融资金额质押率变动表”的
“导入金额”和“出池金额”中引用。
谢谢
[此贴子已经被作者于2013-11-14 22:05:43编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2013/11/14 22:34:00 -- 第一个问题,把代码这样改 If e.Row.IsNull("应收账款到期日") = False Then If e.Row("应收账款到期日") < Date.Today Then e.Style = "逾期" Else If e.Row("应收账款到期日") <= Date.Today.AddDays(15) e.Style = "近期" End If End If |
||||
-- 作者:有点甜 -- 发布时间:2013/11/14 22:39:00 -- 第二个问题不明白。笔数根据什么来,金额根据什么来。引用,是值把得到的金额,直接赋值给列的搜有行么 |
||||
-- 作者:ahbrq -- 发布时间:2013/11/16 22:51:00 -- 问题二:每次导入或者出池,笔数就是导入多少条记录,出池多少条记录。并把值赋给“融资金额质押率变动表”的
最后一行的“导入金额”和“出池金额”中。 |
||||
-- 作者:有点甜 -- 发布时间:2013/11/17 21:00:00 -- 导入的笔数这样做。至于导出的笔数、导入的金额、导出的金额,请上传必要的 质押表.xls,同时说明统计哪一列的金额 If MessageBox.Show("不可以重复导入,导入前请做好数据预处理,是否导入?","请确认?",MessageBoxButtons.YesNo)=DialogResult.Yes Then Dim count As Integer = DataTables("应收账款池表").DataRows.Count Dim mg As New Merger mg.SourcePath = "e:\\质押表.xls" mg.Format = "excel" \'指定格式 mg.SourceTableName = "质押表$" \'指定要合并的表 mg.DataTableName = "应收账款池表" \'指定接收数据的表 mg.Merge() \'开始合并 msgbox(DataTables("应收账款池表").DataRows.Count - count) End If
|
||||
-- 作者:ahbrq -- 发布时间:2013/11/18 20:52:00 -- 1、出池的笔数,也可以通过统计出池操作的前后差来得到,是么?
2、导入的金额就是“质押清单”中“发票实有金额”的和。
3、“出池金额”就是“应收账款池表”出池操作前后“发票使用金额”的边哈值。
|
||||
-- 作者:ahbrq -- 发布时间:2013/11/18 21:05:00 -- 出池笔数是否可以这样:
If MessageBox.Show("是否出池?","请确认:",MessageBoxButtons.YesNo) = DialogResult.Yes Then
Dim count As Integer = DataTables("应收账款池表").DataRows.Count
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(DataTables("应收账款池表").DataRows.Count - count) End If
|
||||
-- 作者:有点甜 -- 发布时间:2013/11/18 21:18:00 -- 感觉还是要做一下。
|
||||
-- 作者:ahbrq -- 发布时间:2013/11/18 22:51:00 -- “融资金额质押率变动表”中的“导入金额”和“出池金额”你是怎么来的,你做的代码在哪儿呢? |
||||
-- 作者:有点甜 -- 发布时间:2013/11/18 22:56:00 -- 代码写在两个按钮里了。 |