主题：关于SQL语句的使用

设SQL是一条sql语句，希望再加上一列，我这样做：

谢谢。

我实际上是想添加商品表中的已有列“标准价”：

sql = " s elect  *,标准价 from (" & sql & ") as a INNER JOIN {商品表} on {商品表}.条码 = a.条码"

但是没有通过。

这样写法有何问题吗？

因为原表中没有“标准价”列

就是(" & sql & ")中没有标准价列

 

我贴出全部代码吧，帮我看一下：

代码目的：创建结存表

 

Dim sql As String
Dim f1 As String ="where 店铺 = '**万达LT'"
Dim f2 As String =" where 店铺 = '**万达LT' AND 日期 >='2018-02-01' And 日期 <= '2018-02-28'"
sql = "s elect  店铺,条码,本月结存 As 上月结存,0 As 入库,0 As 出库, 0 As 销售  from {结存表}  f1 union all " & _
"s elect  店铺,条码,0,数量,0,0  from {@入库记录表}  f2 union all " & _
"s elect  店铺,条码,0,0,数量,0  from {@出库记录表}  f2 union all " & _
"s elect  店铺,条码,0,0,0,数量  from {@销售记录表}  f2 "
sql = sql.Replace("f1",f1)
sql = sql.Replace("f2",f2)
sql = sql.Replace("@","乐町")
sql = " s elect  店铺,条码,sum(上月结存) as 上月结存,sum(入库) as 入库 ,sum(出库) as 出库,sum(销售) as 销售,(sum(上月结存)+sum(入库)-sum(出库)-sum(销售)) as 本月结存 from (" & sql & ") As a group by 店铺,条码  ORDER BY 店铺,条码"

 

'----到此为止，代码正确。下面要添加商品表中存在的标准价列，但是报错了

sql = " s elect  *, 标准价 from (" & sql & ") as a inner join {@商品表} on {@商品表}.条码 = a.条码 "
sql = sql.Replace("@","乐町")
MessageBox.Show(sql)
Dim T1 As Table = e.Form.Controls("Table1").Table
T1.Fill(sql,"gsjcc",True)

执行到：

sql = " s elect  店铺,条码,sum(上月结存) as 上月结存,sum(入库) as 入库 ,sum(出库) as 出库,sum(销售) as 销售,(sum(上月结存)+sum(入库)-sum(出库)-sum(销售)) as 本月结存 from (" & sql & ") As a group by 店铺,条码  ORDER BY 店铺,条码"

是对的，但是接着执行：

 

sql = " s elect * from (" & sql & ")"

 

就不对了,何故？

 

 

对啦，成功。

谢谢