急！！！[求助]一直运行的非常好，数据库重新建立后，代码出现错误？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下

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

Tables("工资月汇总_Table1").Cols("进厂时间").Width = 80

Tables("工资月汇总_Table1").Cols("离厂时间").Width = 80

主题：急！！！[求助]一直运行的非常好，数据库重新建立后，代码出现错误？