- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 急！！！[求助]一直运行的非常好，数据库重新建立后，代码出现错误？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76817)
-- 发布时间：2015/11/5 15:46:00
-- 急！！！[求助]一直运行的非常好，数据库重新建立后，代码出现错误？
[求助]一直运行的非常好，数据库重新建立后，代码出现错误？
此主题相关图片如下：13.bmp
此主题相关图片如下：14.bmp
[此贴子已经被作者于2015/11/5 15:57:13编辑过]
-- 发布时间：2015/11/5 15:48:00
--
代码如下
If txt ="岗位补助人员名单" Then
\' MsgBox("调整好工资花名册后,直接报表!",64,"提示")
Forms("正在统计").Open()
Dim g As New SqlGroupTableBuilder("统计表1", "工资花名册")
g.C
Dim dt2 As fxDataSource
g.Filter = " 日期 >= \'" & DP1 & "\' And 日期 <= \'" & DP2 & "\' and 岗助 <>1 and 姓名<>\'1\'and 单位 = \'" & dp3 & "\' "
g.Groups.AddDef("年")
g.Groups.AddDef("月")
g.Groups.AddDef("单位")
g.Groups.AddDef("工种")
g.Groups.AddDef("岗位")
g.Groups.AddDef("代号")
g.Groups.AddDef("班别")
g.Groups.AddDef("姓名")
g.Groups.AddDef("性别")
g.Groups.AddDef("进厂时间", DateGroupEnum.None)
g.Groups.AddDef("离厂时间", DateGroupEnum.None)
g.Groups.AddDef("基本数据_出勤天数","出勤")
g.Groups.AddDef("基本数据_旷工天数")
g.Groups.AddDef("基本数据_事假天数")
g.Groups.AddDef("基本数据_病假天数")
g.Groups.AddDef("基本数据_公休")
g.Groups.AddDef("应发项目_岗位","补助")
g.FromServer = True
dt2= g.BuildDataSource()
Tables("工资月汇总_Table1").DataSource = dt2 \'将统计结果绑定到Table
Tables("工资月汇总_Table1").Sort = "工种,代号"
Forms("正在统计").close()
Tables("工资月汇总_Table1").DefaultColWidth = 70
For Each c As Col In Tables("工资月汇总_Table1").Cols
Tables("工资月汇总_Table1").Cols(c.name).Width = 45
Next
Tables("工资月汇总_Table1").Cols("进厂时间").Width = 80
Tables("工资月汇总_Table1").Cols("离厂时间").Width = 80
-- 发布时间：2015/11/5 16:01:00
--
这句应该去掉 g.FromServer = True
你分别注释掉g.xxxx的代码，看哪句有错呗。
[此贴子已经被作者于2015/11/5 16:00:50编辑过]
-- 发布时间：2015/11/5 16:04:00
--
谢谢
-- 发布时间：2015/11/5 16:14:00
--
谢谢，解决了，数据表里没有“班别”列