Dim yf As String = e.Form.Controls("TextBox1").text
Dim tB As Table = Tables("月工资表_table1")
tB.Fill(" select 生产员工 as 姓名,sum(件数*工价) as 工资 f rom [BD-ERP].[dbo].[派发工序表] where MONTH(扫码时间) = convert(int,yf) And year(扫码时间)=Datename(year,GetDate()) GROUP BY 生产员工 " , "xsc_erp",True)
加好友 
发短信
Post By：2019/6/9 11:42:00 [显示全部帖子]
