Select Case e.DataCol.name
Case "年"
Dim y As Integer = Tables("专项资金指标统计").Current("年")
Dim dt0 As New Date(y-1, 12, 31)
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As new Date(y, 12, 31)
Dim sk0,sk1,sk2 As Double
Dim fk0,fk1,fk2 As Double
Dim r As Row = Tables("专项资金指标统计").Current
sk0 = DataTables("专项资金表").Compute("sum(指标金额", "收到日期 <= #" & dt0 & "#" )
sk1 = DataTables("专项资金表").Compute("sum(指标金额)", "收到日期 >= #" & dt1 & "# AND 收到日期 <= #" & dt2 & "#" )
sk2 = DataTables("专项资金表").Compute("sum(指标金额)", "收到日期 <= #" & dt2 & "#" )
fk0 = DataTables("专项资金拨付记录").Compute("sum(拨款金额)", "拨款日期 <= #" & dt0 & "#" )
fk1 = DataTables("专项资金拨付记录").Compute("sum(拨款金额)", "拨款日期 >= #" & dt1 & "# AND 拨款日期 <= #" & dt2 & "#" )
fk2 = DataTables("专项资金拨付记录").Compute("sum(拨款金额)", "拨款日期 <= #" & dt2 & "#" )
r("上年结转") = sk0 - fk0
r("本年新增") = sk1
r("本年拨付") = fk1
r("年末结转下年") = sk2 - fk2
End Select
.NET Framework 版本：2.0.50727.8009
Foxtable 版本：2016.7.29.1
错误所在事件：表，专项资金指标统计，DataColChanged
详细错误信息：
调用的目标发生了异常。
聚合参数中的语法错误: 需要具有可能的“Child”限定符的单个列参数。
这个表事件代码有错吗？请高人指点 目的是输入年份（列）后根据原始数据生成统计表
加好友 
发短信
Post By：2016/11/9 21:08:00 [显示全部帖子]
