临时表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

"员工每月工资报告"是从数据表"日薪计算"之“数据统计”之“分组统计”功能产生出来的临时表。

在"菜单,加上日薪工资,Click"里面有下面的代码：

If User.Group = "行政" Or User.name = "开发者"

For Each r As Row In Tables("员工每月工资报告").rows

Dim NY As String = r("年") & r("月")

If NY > 201902 Then

If r("成本中心") = "" Or r("姓名") = "" Then

Else

For Each dr As DataRow In DataTables("员工每月工资报告").DataRows

If dr("年月") = NY And dr("姓名") = r("姓名")

dr("计件工资") = r("计件工资")

dr("计时工资") = r("计时工资")

dr("误餐补贴") = r("餐补")

dr("新人补贴") = r("新人补贴")

Exit For

End If

但是当我在“员工每月工资报告”里面执行上述代码后，出现如下警告：

不存在名称为“员工每月工资报告”的table.

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2017.3.18.1

错误所在事件：菜单,加上日薪工资,Click

详细错误信息：

未将对象引用设置到对象的实例。

请问如何解决这个问题？谢谢。

还是出现如下警告：

不存在名称为“员工每月工资报告”的table.

未将对象引用设置到对象的实例。

Dim g As New GroupTableBuilder("统计表2", DataTables("日薪计算"))

g.Caption = "员工每月工资报告"

g.Groups.AddDef("姓名")

g.Groups.AddDef("成本中心")

g.Groups.AddDef("生产日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("生产日期", "月")

g.Totals.AddDef("计件工资")

g.Totals.AddDef("计时工资")

g.Totals.AddDef("餐补")

g.Totals.AddDef("包工工资")

g.Totals.AddDef("新人补贴")

g.Totals.AddDef("工资合计")

g.Decimals = 0

g.Build()

MainTable = Tables("统计表2")

此主题相关图片如下：图片1.jpg

If User.Group = "行政" Or User.name = "开发者"

For Each r As Row In Tables("员工每月工资报告").rows

Dim NY As String = r("年") & r("月")

If NY.length = 5

NY = r("年") & "0" & r("月")

Else

NY = r("年") & r("月")

End If

If NY > "201902" Then

If r("成本中心") = "" Or r("姓名") = "" Then

Else

For Each dr As DataRow In DataTables("员工每月工资报告").DataRows

If dr("年月") = NY And dr("姓名") = r("姓名")

dr("计件工资") = r("计件工资")

dr("计时工资") = r("计时工资")

dr("误餐补贴") = r("餐补")

dr("新人补贴") = r("新人补贴")

Exit For

End If

如上代码执行时，出现如下警告：

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2017.3.18.1

错误所在事件：菜单,日薪工资导入工资计算,Click

详细错误信息：

列“年月”不属于表员工每月工资报告。

"员工每月工资报告"里面虽然没有“年月”这栏，但是我已经定义了"NY"，但是为什么还是出现警告呢？谢谢。

我知道问题所在了，这句话要修改一下：For Each dr As DataRow In DataTables("工资计算").DataRows

主题：临时表的问题