以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  黄色底这里不是这么写吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136164)
--  作者：yetle
--  发布时间：2019/6/9 11:42:00
--  黄色底这里不是这么写吗？
If Forms("月工资表").Opened()
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)
End If
--  作者：有点甜
--  发布时间：2019/6/9 11:53:00
--  

 

convert(int, " & yf & ")