主题：[公告]又见bug？？

在家里机器上编的代码，家里机器上版本忘了多少的，可能是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()

Catch问题吧，删除看看。

删除了，还是有问题！

全新安装新版本再试试

不是直接解压缩就行了吗？怎么才算全新安装？要不要改注册表什么的？

发上来，我测试一下。

人员信息下 银行发放数据窗口 button3

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退休工资管理.part01.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退休工资管理.part02.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退休工资管理.part03.rar

新的交叉统计的问题，我改一下就行。

等待更新……