老师，出现如图，错哪儿了 ？
此主题相关图片如下：捕获.png

For Each rrr As Row In Tables("PPV").Rows
Dim cmda As new SQLCommand
cmda.C
Dim dta As DataTable
cmda.CommandText = "Se lect {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"
dta = cmda.ExecuteReader(True)
 Dim fdr As DataRow = dta.Find("FItemID=" & rrr("FItemID") & "")
          
  If fdr IsNot Nothing Then
            rrr("LP") = fdr("FQty")

 End If
dta.Save()
Next