主题：[讨论] QueryBuilder　中能引用全局变量吗？

有这样一个外部查询：

Dim q As new QueryBuilder
q.TableName = "会计凭证查询"
q.C
q.SelectString = "select * from [z_tablqpz] where sszt = 11 and pzrqn = 2008 union all select * from [z_tabdqpz] where sszt = 11 and pzrqn = 2008 union all select * from [z_tabxqpz] where sszt = 11 and pzrqn = 2008 order by pzrqn,pzrqy,pzlx,pzdm,flxh"
q.Build

在q.SelectString 中，有　pzrqn = 2008 　，我将2008换成全局变量vars("kn")后，就不能编译了！

我想，用户自已能通过改变全局变量，更新一下查询条件，这是一个很自然的事。

非得由开发者一次性设置固定的查询吗？不太灵活吧。

现在的数据表都好大，几十万条记录的，用户经常根据需要调取不同年度的数据，而用户不会SQL查询，只有我来设置好，插入变量。

同时，建议老大提供两个功能选项：
１、可以设置在打开项目时是否加载外部查询表，允许用户自行在代码中根据需要加载；
２、允许在代码中获取数据源名称，这样可以在窗口中调用不同的数据源查询；
这样不是更加友好灵活吗？

我实在是想不出变通的方法，没办法：我做各种版本专业软件的数据接口，不同数据库、不同年度、不同的表，每一次转换数据都面对不同的东西，不灵活就完全搞不成啦！

Dim q As new QueryBuilder
q.TableName = "会计凭证查询"
q.C
q.SelectString = "select * from [z_tablqpz] where sszt = 11 and pzrqn = " & vars("kn")  &  " union all select * from [z_tabdqpz] where sszt = 11 and pzrqn = 2008 union all select * from [z_tabxqpz] where sszt = 11 and pzrqn = 2008 order by pzrqn,pzrqy,pzlx,pzdm,flxh"
q.Build

我测试了一下，有出错提示：


此主题相关图片如下：未命名.jpg

和全局变量无关的，也许后面的2008也要处理。
不要急于下结论使全局变量的事，任何表达式都可以动态合成。

q.SelectString = "select * from [z_tablqpz] where sszt = 11 and pzrqn = " & vars("kn")  &  " union all select * from [z_tabdqpz] where sszt = 11 and pzrqn = 2008 union all select * from [z_tabxqpz] where sszt = 11 and pzrqn = " & vars("kn")  &  " order by pzrqn,pzrqy,pzlx,pzdm,flxh"

要学会调试，例如你可以在命令窗口：

dim str =  "select * from [z_tablqpz] where sszt = 11 and pzrqn = " & vars("kn")  &  " union all select * from [z_tabdqpz] where sszt = 11 and pzrqn = 2008 union all select * from [z_tabxqpz] where sszt = 11 and pzrqn = " & vars("kn")  &  " order by pzrqn,pzrqy,pzlx,pzdm,flxh"
output.show(str)

看看所生成的sql语句是什么，如果觉得没问题，复制这个生成好的sql到查询表定义窗口进行测试。

明白了：
pzrqn between "vars("kn") and vars("jn")"    这样的写法不正确

pzrqn between "vars("kn")"and "vars("jn")"  这样的写法正确  

已搞定！

还是建议老大提供两个功能选项：
１、可以设置在打开项目时是否加载外部查询表，允许用户自行在代码中根据需要加载；
２、允许在代码中获取数据源名称，这样可以在窗口中调用不同的数据源查询；
这样不是更加友好灵活吗

呵呵，我会考虑的。

哈哈，我的第一个应用软件的核心功能已接近完成，主要性能：
１、同步远光财务数据库中的会计科目、会计凭证等重要内容；
２、做第二账套账，也就是预算系统账；

我的应用系统与远光系统的数据有完整的对应关系，在我的系统里统计的数据与在远光财务中统计的数据一样，但我的系统里多了预算管理功能。