e.Form.Controls("TextBox1").text=year(Date.Today)
e.Form.Controls("TextBox2").text=Month(Date.Today)
Dim tB As Table = Tables("日产量分析_table2")
If Forms("日产量分析").Opened()
tB.Fill(" select A.MakeGro as 班组, Sum( isnull(C.Qty,0)) as 数量 f rom PQ_Convert_Main d left join PQ_Convert_List C ON d.ID=C.UpID left join PQ_Main A on c.Orderno=a.OrderNo left join bai_ftyno E ON a.ftyno=e.ftyno where ArtGD='车间转QC' and DATEPART(year,d.Workdate)=(select year(GETDATE())) and DATEPART(month,d.Workdate)=(select MONTH(GETDATE()) ) and A.MakeGro is not null group by A.MakeGro order by A.MakeGro " , "鼎邦系统",True)
End If
Tables("日产量分析_Table3").Fill("Select A.班组,A.数量,B.计划产量 F rom {日产量分析_table2} A left join {班组月计划产量} B on A.班组=B.班组 order by A.班组",True)
我把上面代码放在sql测试如下:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:111.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-7/201871015103325325.png)
[此贴子已经被作者于2018/7/10 15:11:08编辑过]