AfterLoad:下面代码,打开窗口提示未找到生产员工列,是怎么回事,关掉提示后数据又正常显示
Dim tB As Table = Tables("月工资表_table1")
Dim tB2 As Table = Tables("月工资表_table2")
If Forms("月工资表").Opened()
tB.Fill(" select 组别,生产员工,sum(件数*工价) as 工资 f rom [BD-ERP].[dbo].[派发工序表] where MONTH(扫码时间) = Datename(MONTH,GetDate()) and year(扫码时间)=Datename(year,GetDate()) GROUP BY 组别,生产员工 " , "xsc_erp",True)
tB2.Fill(" Select 组别,生产员工,件数*工价 As 工资,订单号,制单号,款号,工序号,工序名,工价 f rom [BD-ERP].[dbo].[派发工序表] where MONTH(扫码时间) = Datename(MONTH,GetDate()) And year(扫码时间)=Datename(year,GetDate()) " , "xsc_erp",True)
End If
If Forms("月工资表").Opened()
With tB
If .Current IsNot Nothing Then
tB2.Filter = "生产员工 = '" & .Current("生产员工") & "'"
Else
tB2.Filter = "False"
End If
End With
End If