dt1 = Date.Today
dt2 = Date.Today
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#" & "and 单据状态='已审核'"
Dim filter As String
Filter ="日期 >='" & dt1 & "' And 日期 <='" & dt2 & "'"
Tables(e.form.Name & "_Table1").Fill("elect 客户编码,客户名称,产品名称 As '款型及款号',产品规格 As '毛纱品种',sum(辅助数量) As '件数',sum(数量) As '重量',单价,sum(运费) As '运费',sum(实收金额) As '厂收金额',sum(金额) As '总金额' from {销售单明细} where '" & filter & "' group by 产品名称,客户编码,客户名称,产品规格,单价","wjhansdata",True)
Dim cmb2 As WinForm.ComboBox
cmb2 = Forms("销售单日报表汇总").Controls("khname")
cmb2.ComboList = DataTables(e.form.Name & "_Table1").SQLgetComboListString("客户名称")