- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]我需要设计一个流水账：我怎么找不到“DataColChanged事件”在哪儿？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41525)
-- 发布时间：2013/10/21 21:09:00
-- [求助]我需要设计一个流水账：我怎么找不到“DataColChanged事件”在哪儿？
TID~WRWK@HB8MPGS.jpg)
看帮助有代码如下：
实现的代码不复杂，只需将DataColChanged事件设为:
Select Case e.DataCol.Name
Case "收入","支出"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
dr("余额") = Val1 - Val2
Next
End Select
该段代码的原理很简单：如果修改了某行的收入或支出，那么针对顺序在该行之后的每一行，计算出截止到此行的收入和支出，二者相减即可得到此行的余额。
请问这些代码写在哪儿？
我怎么找不到“DataColChanged事件”在哪儿？
-- 发布时间：2013/10/21 21:34:00
--
在表属性的事件中写入如下代码：
Select Case e.DataCol.Name
Case "融资金额","融资还款金额"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(融资金额)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(融资还款金额)","[_SortKey] <= " & dr("_SortKey"))
dr("融资余额") = Val1 - Val2
Next
End Select
但是却出现如下错误提示：
-- 发布时间：2013/10/21 21:37:00
--
回复二楼，图片看不见，用文字表达吧。
-- 发布时间：2013/10/21 21:39:00
--
在帮助里，，，啊，在帮助里。。。
-- 发布时间：2013/10/21 21:50:00
--
|
在表属性的“datacolchanged"事件”中写入如下代码：
Select Case e.DataCol.Name
但是却出现如下错误提示：
是怎么回事？ |
-- 发布时间：2013/10/21 21:59:00
--
呃，楼主，你先学会上传东西吧。你的代码没有错的，上传个例子看看。
-- 发布时间：2013/10/21 22:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:徽商银行应收账款质押池动态管理系统.table |
1 我希望在融资金额表中做个流水账，复制修改代码后出错。
2 我在质押率计算中，当质押率达到65%以上，请以红色显示。
谢谢
-- 发布时间：2013/10/21 22:43:00
--
如下例子。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:徽商银行应收账款质押池动态管理系统.table |
-- 发布时间：2013/10/21 22:59:00
--
1、我错在哪儿？
2、怎么做的？
谢谢
-- 发布时间：2013/10/21 23:00:00
--
还有，才发现应收账款池内容那个怎么没有了？