何必折腾自己不熟悉的东西。使用自定义函数不好么，全局代码每编辑一下还得重启项目。
public function xxx函数名(ppjhs as string()) as string
Dim SQLxs,sqlA,sqlB As String
For Each pp As String In ppjhs
sqlA = " union all SEL ECT 单号,日期,a.条码,商品,色号,尺寸,数量,标准价,(Case when 数量 = 0 Or 标准价=0 Then 0 Else Round(成交金额 / (数量*标准价),2 ) End) As 折扣," & _
"( Case when 数量 = 0 Then 0 Else Round(成交金额 / 数量,0) End) As 成交价,成交金额,(数量*标准价) As 标准金额,系列,业务员,年代,季节,波段,大类,小类,品名,颜色别名,尺寸名,店铺,备注 Fr om {@销售记录表} as a INNER JOIN {@商品表} as b ON a.条码 = b.条码 where $ "
SQLB = sqlA.replace("@",pp)
SQLxs & = SQLB
Next
return SQLxs
end function
加好友 
发短信
Post By：2021/2/1 13:49:00 [只看该作者]
此主题相关图片如下：snipaste_全品牌销售记录.png