 加好友  发短信
等级：幼狐
帖子：155
积分：1292
威望：0
精华：0
注册：2009/2/23 15:17:00
|
[公告]又见bug？？  Post By：2009/6/22 15:46:00 [显示全部帖子]
在家里机器上编的代码，家里机器上版本忘了多少的，可能是6月15号左右的。 在家里运行没有问题，在单位报错，出现以下两种情况。  此主题相关图片如下：1411.jpg  此主题相关图片如下：222.jpg  代码如下： dim sy as date
if Vars("dlsj").month=1 then
sy = new date(Vars("dlsj").year-1,12,Vars("dlsj").day)
else
sy =new date (Vars("dlsj").year,Vars("dlsj").month-1,1)
end if
datatables("发放记录").loadfilter= "[发放时间]<= # " & Vars("dlsj") & " # and [发放时间]>= # " & sy & " #"
datatables("发放记录").load()
Dim g As New CrossTableBuilder("拨付计划", DataTables("发放记录"))
g.HGroups.AddDef("单位")
g.VGroups.AddDef("发放时间", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("发放时间", "{0}月")
g.Totals.AddDef("姓名", AggregateEnum.Count, "姓名")
g.Totals.AddDef("当月实发", "当月实发")
g.Build()
With DataTables("拨付计划")
.DataCols.Add("人数减", GetType(Integer), "IIF([crsz1]-[crsz3] > 0,[crsz1] - [crsz3],null)")
.DataCols.Add("人数增", GetType(Integer), "IIF([crsz3]-[crsz1] > 0,[crsz3] - [crsz1],null)")
.DataCols.Add("金额减", GetType(Double), "IIF([crsz2]-[crsz4] > 0,[crsz2] - [crsz4],null)")
.DataCols.Add("金额增", GetType(Double), "IIF([crsz4]-[crsz2] > 0,[crsz4] - [crsz2],null)")
.DataCols.Add("丧葬费", GetType(Double))
End With
For Each bfjh As DataRow In dataTables("拨付计划").DataRows
bfjh("丧葬费")=datatables("丧葬抚恤费").compute("sum(实发金额)" , "[发放时间]= #" & Vars("dlsj") & "# and [单位]='" &bfjh("单位")& "'")
Next
datatables("发放记录").loadfilter= "true"
datatables("发放记录").load()
|
|
Post By：2009/6/22 16:41:00 [显示全部帖子]
