- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]查询表的并列问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117310)
-- 发布时间：2018/4/10 15:15:00
-- [求助]查询表的并列问题
我做了一个查询表，一旦我执行这段代码，生成的查询表就会覆盖掉我以前打开的数据表，如何编写代码可以做到生成的查询表与我之前打开的数据表并列，而不是覆盖打开的数据表：代码如下：
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("病症商品明细信息")
-- 发布时间：2018/4/10 15:18:00
--
换一个名字
q.TableName = "病症商品明细信息abc123"
-- 发布时间：2018/4/10 15:23:00
--
现在不理想的效果如下：
此主题相关图片如下：b`y8m11cv4hy4d94vp6q{c.png
想要的效果如下：
此主题相关图片如下：h1tnc34}~`94d@d6um$zyb2.png
-- 发布时间：2018/4/10 15:26:00
--
回复楼上，你窗口里面加入一个table，然后fill进去即可
http://www.foxtable.com/webhelp/scr/1777.htm
-- 发布时间：2018/4/10 15:30:00
--
这种办法我已经做好了，但是这种窗口的需要编译后发布更新，客户才能使用，如果我现在提出的问题可以代码实现就可以不需要编译，客户那边就可以使用了。
[此贴子已经被作者于2018/4/10 15:30:18编辑过]
-- 发布时间：2018/4/10 15:43:00
--
你所做的任何设置的修改、代码的修改，都是需要重新编译以后更新，才行的。不理解你说的不需要编译的意思，也不可能达到你这种需求。