Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
DataRowAdding
增加一行时执行,此时新增行(DataRow)已经创建,但并未真正增加到DataTable中,通常在此处对新增行进行默认值的设置。
e参数属性:
DataTable:返回增加行的数据表。
DataRow: 返回新增加的行。
示例一
例如希望新增行的日期设为当前系统日期,姓名设为当前登录用户名,可以将DataRowAdding事件的代码设置为:
e.
DataRow("日期") = Date.Today()Compute
根据指定的表达式和条件进行计算,语法:
Compute(Expression, Filter)
Expression: 要计算的表达式
Filter: 可选参数,用于设置计算条件。
Exression和Filter都是表达式,语法和在应用篇中介绍的表达式完全相同,请参考表达式的运算符和函数。
Expression使用聚合函数进行统计
例如,我们要统计订单表中产品PD01的销售金额,代码如下:
Dim
Sum As Double还记得吗? DataTable也有Compute方法,两者功能一样,但是DataTable的Compute方法统计所有行,而Table的Compute方法只会统计Table中可见的行。
聚合函数
聚合函数用于数据统计,表达式支持下列聚合函数:
Sum:求和
Avg:平均
Min:最小值
Max:最大值
Count:计数
StDev:标准偏差
Var:方差
例如要对当前表的金额列汇总,公式为:
Sum([金额])
谢谢了!
kylin 老兄 解决了插入行的问题。
如实现行移动更好一些。
如选中要移动的行 A10 ,在菜单填入 5 , 确定 ,即可使 A10 行移动至第 5 行。
下载信息 [文件大小:328.0 KB 下载次数:11] | |
点击浏览该文件:管理项目02.table |
Dim n,n1,n2 as Double
With CurrentTable
n = .Position
n1 = ConfigBar.Items("编辑框1").Text
if n1 =1
n2 =.rows(n1-1)("xh")-1
else
n2 = (.rows(n1-iif(n > n1,1,0))("xh")+.rows(n1-iif(n > n1,2,1))("xh"))/2
end if
.Current("xh") = n2
.Sort = "xh"
End With