主题：高手帮我看看,我的代码错哪 里了?我是放在afterload的

Dim filter As String
filter ="Select a.nid As 送货单号,a.nRelationID As 销售单号, a.nclientid As 客户编号,b.sName As 客户名称,b.sAddr As 客户地址,b.sPhone As 联系电话,a.dOrderDate As 购物日期,a.dDeliverDate  As 送货日期,d.sName As 商品名称及规格型号  ,c.nNumber As 数量,f.sName As 购买商场,e.sName As 发货仓库 from RT_Deliver a,CV_Client b ,RT_DeliverItem c,CT_Merchandise d,CT_Dept e,CT_Dept f where a.nClientID=b.nID And  a.nID=c.nDeliverID And c.nMerchandiseID=d.nID And e.nID=c.nStoreHouseID And f.nID = a.nShopID And   nClientType =1 And a.nAccountID = " & _Accountid & "   and  convert(Char(8),a.dOrderDate,112) >= convert(char(8),getdate(),112)"
Tables("销售单据窗口_table1").Fill(filter,_name,True)

出现什么错误?    利用Messagebox.SHOW 弹出FIlter看看

说是SQL或数据库设置错误

 

错误截图看看. FIlter弹出的截图也发出来

此主题相关图片如下：qq截图20140807112437.bmp

此主题相关图片如下：11.bmp

在预览窗口没有错误提示

预览窗口没有错误提示?  你把弹出框的SQL语句复制到SQL命令窗口执行正常?

  你单独拷贝生成的sql语句去执行，看报什么错

 

http://www.foxtable.com/help/topics/1484.htm

 

在SQL命令窗口执行也没错