Dim Filter As String
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Filter ="日期 >='" & dt1 & "' And 日期 <='" & dt2 & "'"
'Filter ="日期 >='" & dt1 & "' And 日期 <='" & dt2 & "'"
Tables("加工费结算汇总表_Table1").Fill("Sele 加工商名称,sum(数量) as 数量,sum(金额) as 金额 From (sele 加工商名称,数量,金额 from {工序收发明细} Where " & Filter & " union all Sele 加工商名称,数量,金额 from {加工收发明细} Where "& Filter &" ) group by 加工商名称" ,"wjdata",True)
[此贴子已经被作者于2020/4/28 8:20:27编辑过]
加好友 
发短信
Post By：2020/4/28 8:18:00 [只看该作者]
