以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 下列代码的where 出错了,请帮我看一下 谢谢? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114889) |
-- 作者:jswjyjf -- 发布时间:2018/2/25 13:21:00 -- 下列代码的where 出错了,请帮我看一下 谢谢? 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("客户名称")
|
-- 作者:有点甜 -- 发布时间:2018/2/26 1:02:00 -- dt1 = Date.Today |