|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
你老人家什么都不传。。。。
恰好以前有个表和你一样,给个演示,还是按照你那个表编写的。
Public Sub sqlss()
For i = 12 To 13
sqlxxb = "select 产品名称 as cpmc,规格型号 as ggxh,计划单价 as jhdj,产品代码 as dm from 产品表 where 产品名称= '" & Range("b & i") & "'"
sqlmain = "select 项目号 as xmh,数量 as msl,工艺路线 as gyxl 产品代码 as cpdm from 主表 where 产品代码='" & Range("b & i") & "'"
sqlsonb = "select 产品代码 as zbcp ,序号 as xh,数量 as sl from 子表 where 产品代码='" & Range("b & i") & "'"
sqlsum = "main.xmh,main.cpdm,xxb.cpm,cxxb.ggxh,main.msl,main.gyxl,sonb.xh,xxb.cpmc,sonb.sl,xxb.jhdj,sonb.sl*xxb.jhdj from (" & sqlxxb & ") as xxb left join (" & sqlmain & ") as main on xxb.dm=main.cpdm left join (" & sqlsob & ") as sonb where sonb.zbcp=xxb.cpdm"
Next i
End Sub
我也做过类似的使用的是left join,多条件查询。你这个也可以用union,楼主是不是想把三个表联合起来创建新表。不懂加QQ:165655743
[ 本帖最后由 ah2005 于 2009-12-21 10:31 编辑 ] |
|