主题：汇总

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

请各位帮忙查看下这代码错在哪里？谢谢