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
dr2("数量总计") = dr1("FQty")
Next
是这意思?