以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  汇总  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33686)
--  作者：L7
--  发布时间：2013/5/22 17:17:00
--  汇总

For Each dr As DataRow In DataTables("坯布入库汇总").DataRows
    Tables("坯布入库汇总").Current.Delete
Next
With e.Form.Controls("dt_pbrk_时间")
   If .Value IsNot Nothing Then
   DataTables("坯布入库汇总").Fill("Select ddbhID,jth,pm,ddbh,dj,SUM(lbzl) as Tlbzl FROM {坯布_入库} where rkrq=#" & e.Form.Controls("dt_pbrk_时间").Value  & "# GROUP BY ddbhID,jth,pm,ddbh,dj",True)
   End If
End With

请各位帮忙查看下这代码错在哪里？谢谢
--  作者：Bin
--  发布时间：2013/5/22 17:31:00
--  
出现什么问题?

你是使用内部数据源 还是?
--  作者：L7
--  发布时间：2013/5/22 17:49:00
--  

坯布入库汇总是内部数据源，坯布_入库是外部数据源，我现在 rkrq>= \'" 也改过来了 数据还是没有导进去
--  作者：Bin
--  发布时间：2013/5/22 17:54:00
--  
弹出拼接好的SQL出来看看有没问题,
然后使用这段SQL直接运行看看有没数据.
--  作者：L7
--  发布时间：2013/5/22 17:59:00
--  

提示说 select 语句执行错误
--  作者：Bin
--  发布时间：2013/5/22 17:59:00
--  
说明你SQL语句就没对,弹出拼接好的语句 看看是什么样子的.