Dim dt As Table = Tables("病症总分析报表")
Dim r As Row =dt.Current
Dim SQLText As String
SQLText = " S elect a.采购状态,a.销售状态,a.商品状态,a.商品编码,a.商品名称,a.规格,a.厂家, "
SQLText += " a.单位,a.个性标识,a.结算户,a.最新进价,a.商品结构码,a.加盟店强效分类,a.商品替代码, "
SQLText += "a.直营店批发价,a.直营零售价,a.客户价,a.原加盟售价,a.县长价,a.龙山售价,a.直营奖金, "
SQLText += " a.纯利,a.购进毛利,a.公司库存,a.门店总库存,a.直营总库存,a.病症功能编码,a.病症功能名称, "
SQLText += " a.商品辅助码,a.原加盟店配送价,a.新特药强效分类,a.带店加盟非县长配送价,b.数量,b.成本,b.金额,(b.金额-b.成本) As 毛利额, "
SQLText += "Case when c.总销售金额 = 0 Then 0 Else b.金额/c.总销售金额 End As [占总销售额%], "
SQLText += "Case when c.总销售毛利额 = 0 Then 0 Else (b.金额-b.成本)/c.总销售毛利额 End As [占总销售毛利额%] f rom 商品综合信息表 a ,病症商品明细信息 b "
SQLText += " left join 病症总分析报表 c on b.病症功能编码 = c.病症功能编码 where a.商品编码 = b.商品编码 And b.用户ID = '"& SYS.Login.UserID &"' and b.病症功能编码 = '" & r("病症功能编码") & "'"
Dim q As new QueryBuilder
q.TableName = "病症商品明细信息"
q.TableCaption = "明细信息查询"
q.C
q.SelectString = SQLText
q.Build
'DataTable("病症商品明细信息").OpenTo("A")
MainTable = Tables("病症商品明细信息")
加好友 
发短信
Post By：2018/4/10 15:15:00 [只看该作者]
