- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [公告]又见bug？？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3238)
-- 发布时间：2009/6/22 15:46:00
-- [公告]又见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()
-- 发布时间：2009/6/22 15:54:00
--
Catch问题吧，删除看看。
-- 发布时间：2009/6/22 16:41:00
--
删除了，还是有问题！
-- 发布时间：2009/6/22 16:51:00
--
全新安装新版本再试试
-- 发布时间：2009/6/22 16:54:00
--
不是直接解压缩就行了吗？怎么才算全新安装？要不要改注册表什么的？
-- 发布时间：2009/6/22 16:56:00
--
发上来，我测试一下。
-- 发布时间：2009/6/22 17:13:00
--
人员信息下 银行发放数据窗口 button3
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:退休工资管理.part01.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:退休工资管理.part02.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:退休工资管理.part03.rar |
-- 发布时间：2009/6/22 17:25:00
--
新的交叉统计的问题，我改一下就行。
-- 发布时间：2009/6/22 18:37:00
--
等待更新……