我 在项目Initialize事件中，设置Var全局变量
代码 ：
Dim KJQM
As String
Dim d
As Date = Date.ToDay '#3/25/2012#
Dim kj
As String = CStr(d.Year)
Dim qj
As String = CStr(d.Month)
qj = qj.PadLeft(2,"0")
KJQM = kj & qj
Vars.Add("KJQS",Gettype(String)," ")
Vars("KJQS") = "’"& KJQM &"’"
返回 变量 = ‘201204’( 在命令窗口Output.Show(Vars("KJQS"))验证准确)。
然后应用 ：
在一个共有窗口的表属性中设置，表类型SQLQuery，数据源（SQL
Server），
Select
语句 ：
Select LH,SUM(UL) As UL,SUM(UL*DJ) As JE,LY,KJQJ FROM WL99
WHERE KJQJ = '" & Vars("KJQS") & "' GROUP BY
LH,LY,KJQJ ORDER BY LH
或将条件表达式写为WHERE
KJQJ = ' & Vars("KJQS") & '
其结果都返回一空表。
如果将代码改写为：
Select LH,SUM(UL) As UL,SUM(UL*DJ) As JE,LY,KJQJ FROM WL99
WHERE KJQJ = ‘201204’ GROUP BY
LH,LY,KJQJ ORDER BY LH
条件表达式直接使用值 ‘201204’，而不是全局变量的表达式，
结果即按条件 KJQJ = ‘201204’ 显示所有记录 。
我又在“全局代码”菜单中设置：Public KJQX As String 全局变量 KJQX
接着在项目Initialize事件中设置代码：
Dim KJQM
As String
Dim d
As Date = Date.ToDay '#3/25/2012#
Dim kj
As String = CStr(d.Year)
Dim qj
As String = CStr(d.Month)
qj = qj.PadLeft(2,"0")
KJQM = kj & qj
KJQX = "'" &
KJQM & "'"
( 或者在表窗口AfterLoad 事件中设置如上代码 )
将表属性中 Select 改写为：
Select LH,SUM(UL) As UL,SUM(UL*DJ) As JE,LY,KJQJ FROM WL99
WHERE KJQJ = ‘& KJQX &’ GROUP BY
LH,LY,KJQJ ORDER BY LH
返回结果仍然是一空表
请教在SQL语句中如何写条件表达式？ 在实际应用模块中要用到此类的全局变量之处很多，
我正在编写一应用软件，成功后向你们购买一套 FoxTable 软件。
回复邮箱：1139146080@QQ.com
急切得到答复！
加好友 
发短信
Post By：2012/4/26 9:19:00 [只看该作者]
