以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  大师帮我看一下 这段代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100849)
--  作者：jswjyjf
--  发布时间：2017/5/19 16:09:00
--  大师帮我看一下 这段代码？
If e.Form.Controls("ComboBox1").value Is Nothing
  messagebox.show("请选择客户!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
Dim dt1 As Date=e.Form.Controls("startdate").value
Dim dt2 As Date=e.Form.Controls("enddate").value
Dim kh As String=e.Form.Controls("ComboBox1").value
Dim exp As String  = "日期>=\'"  &dt1 & "\'"  & " And " & "日期<=\'"  &dt2 & "\'"  & " And " & "客户名称=\'"  &kh & "\'"  
msgbox(exp)
Tables(e.form.Name & "_Table1").fill("s elect 产品编码,产品名称,sum(数量) as 数量 from {销售单明细} group by 产品编码,产品名称  where " & exp & " ","wjhansdata",True)

上面代码没去掉where 是可以执行的 加上就出错了 ，麻烦帮我看一下
--  作者：有点色
--  发布时间：2017/5/19 16:12:00
--  

Tables(e.form.Name & "_Table1").fill("select 产品编码,产品名称,sum(数量) as 数量 from {销售单明细} where " & exp & " group by 产品编码,产品名称","wjhansdata",True)