主题：[求助] SQL加载数据后再查找统计数据

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim cmd As New SQLCommand
cmd.C

cmd.CommandText = "Sele ct a.* "
cmd.CommandText &= ", d.FName As 名称,d.Fmodel as 规格型号,d.FNumber as 物料代码"
cmd.CommandText &= ", c.Fnote as 库位号,e.FName as 仓库"
cmd.CommandText &= ", (Sel ect sum(实发数量) from [" & Vars("mes") & "].dbo.生产发料单 as j where j.源单ID = a.ID) as 已发料 "
cmd.CommandText &= ", ([需求数量] - [已发料]) As 应发数量 "
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
cmd.CommandText &= " from [" & Vars("mes") & "].dbo.生产领料单 As a "

cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_ICItemCore As d on a.物料ID = d.FItemID "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_ICItemMaterial As c on a.物料ID = c.FItemID "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_ICItemBase As b on a.物料ID = b.FItemID "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_Stock As e on b.FDefaultLoc = e.FItemID "

cmd.CommandText &= " where 任务单号 = '" & e.Form.Controls("Text任务单号").text & "'"

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

Dim Sqldt As DataTable = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Tab料单")

 红色代码出错！