主题：[求助] SQL 条件错误

Dim cmd As New SQLCommand
Dim dt As DataTable
DataTables("PPV").datarows.clear

cmd.C  '外购入库单
Dim Cols111() As String = {"FNumber","FName","FShortName"}
Dim Cols222() As String = {"GSSPartNo","PartDesc","Supplier"}
cmd.CommandText ="Sel ect {t_Item}.FNumber,{t_Item}.FName,FShortName ,Sum({ICStockBillEntry}.[FQty]) as FQty From ((({ICStockBillEntry} Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {ICStockBillEntry}.[FItemID]) Inner JOIN {ICStockBill} ON {ICStockBill}.[FInterID] = {ICStockBillEntry}.[FInterID]) Left JOIN {POOrderEntry} ON {POOrderEntry}.[FInterID] = {ICStockBillEntry}.[FOrderInterID] And {POOrderEntry}.[FEntryID] = {ICStockBillEntry}.[FOrderEntryID]) Inner JOIN {t_Supplier} ON {t_Supplier}.[FItemID] = {ICStockBill}.[FSupplyID] Where {ICStockBill}.[FBillNo] like '%WIN%'and {ICStockBillEntry}.[FQty] > 0 and {ICStockBill}.[FDate] > = '" & e.Form.Controls("Datetimepicker1").Value & "' And {ICStockBill}.[FDate] < = '" & e.Form.Controls("Datetimepicker2").Value & "' Group By {t_Item}.FNumber,{t_Item}.FName,FShortName"

dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
    Dim dr2 As DataRow = DataTables("PPV").AddNew()
    For i As Integer = 0 To Cols111.Length -1
        dr2(Cols222(i)) = dr1(Cols111(i))
    Next

感谢老师，完全正确。

现在得出的是 Datetimepicker1 和 Datetimepicker2 的所有记录的值，然后存于表 PPV中了。 

谢谢老师，操作一下了发现，需先使用以下查询，把结果取出才进行统计，如何再SQLcompute从这查询中取出结果？

cmd.CommandText ="Sel ect {t_Item}.FNumber,{t_Item}.FName,FShortName,{t_Item}.FItemID,Sum({ICStockBillEntry}.FQty) as FQty,Sum({ICStockBillEntry}.FAmount) as FAmount From ((({ICStockBillEntry} Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {ICStockBillEntry}.[FItemID]) Inner JOIN {ICStockBill} ON {ICStockBill}.[FInterID] = {ICStockBillEntry}.[FInterID]) Left JOIN {POOrderEntry} ON {POOrderEntry}.[FInterID] = {ICStockBillEntry}.[FOrderInterID] And {POOrderEntry}.[FEntryID] = {ICStockBillEntry}.[FOrderEntryID]) Inner JOIN {t_Supplier} ON {t_Supplier}.[FItemID] = {ICStockBill}.[FSupplyID] Where {ICStockBill}.[FBillNo] like '%WIN%'and {ICStockBillEntry}.[FQty] > 0 and {ICStockBill}.[FDate] > = '" & e.Form.Controls("Datetimepicker1").Value & "' And {ICStockBill}.[FDate] < = '" & e.Form.Controls("Datetimepicker2").Value & "' Group By {t_Item}.FNumber,{t_Item}.FName,FShortName,{t_Item}.FItemID"