Dim tb As Table = Tables(e.Form.Name & "_Table1")

Dim tb1 As Table = Tables(e.Form.Name & "_Table11")
Dim dt1 As DataTable = tb1.DataTable

Dim cmd As new SQLCommand
cmd.CommandText = "sele ct DISTINCT 子阶ID,车间,组别,sum(需求数量) as 需求数量 from {" & dt1.Name & "}  " 
MessageBox.Show(cmd.CommandText)
tb.DataSource  = cmd.ExecuteReader

cmd.CommandText = "sel ect 子阶ID,车间,组别,sum(需求数量) as 需求数量 from {领料单新增_Table11} group by 子阶ID,车间,组别" 

表是副本表，MessageBox.Show(cmd.CommandText) 出来的结果如下图所示。

Dim sz As String
For Each r As Row In Tables(e.Form.Name & "_Tab订单").Rows
    If sz > "" Then sz &= ","
    sz &= "\'" & r("任务单号") & "\'"
Next
Dim cmd As new SQLCommand
cmd.C

cmd.CommandText = "sele ct a.子阶ID,a.车间,a.组别,sum(a.需求数量) as 需求数量 "
cmd.CommandText &=", b.FNumber As 代码,b.FName As 名称,b.Fmodel as 规格型号,c.Fnote as 库位号,e.FName as 仓库名称,f.FName as 单位 "

cmd.CommandText &= "from {生产任务单} as a "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_ICItemCore as b on a.子阶ID = b.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 d on a.子阶ID = d.FItemID "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_Stock As e on d.FDefaultLoc = e.FItemID "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.t_MeasureUnit As f on d.FUnitID = f.FItemID "
cmd.CommandText &= " where 任务单号 In ( " & sz & " ) group by 子阶ID,车间,组别,代码,名称,规格型号,库位号,仓库名称,单位 "
MessageBox.Show(cmd.CommandText)
Tables(e.Form.Name & "_Table11").DataSource  = cmd.ExecuteReader

老师，以上代码会再现以下错误 提示

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.3.9.1
错误所在事件：
详细错误信息：
列名 \'单位\' 无效。
列名 \'仓库名称\' 无效。
列名 \'库位号\' 无效。
列名 \'规格型号\' 无效。
列名 \'名称\' 无效。
列名 \'代码\' 无效。

可执行的实例发上来测试。

拷贝sql语句，在你的数据库那里执行，报什么错？

如果报错，那删减你的sql语句测试，直到可以正常执行为止。定位写错的位置。