以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]SQL条件加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73444)
--  作者：WUZHAN
--  发布时间：2015/8/19 14:32:00
--  [求助]SQL条件加载
我阿里云的服务器，数据源名称 ：服务器，外部数据表名称：授权表，我在foxtable里有个外部数据表 授权表 ，表有两列 终端代码 列和 到期时间 列。终端代码就是ukey中写入的代码，我是想让授权表根据 终端代码 来加载 到期时间，请问老师们如何实现？
--  作者：大红袍
--  发布时间：2015/8/19 14:42:00
--  

 动态执行代码参考

 

Functions.remove("打印")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("打印",Code)
Functions.Complie()
Functions.Execute("打印")
--  作者：WUZHAN
--  发布时间：2015/8/19 14:52:00
--  

我在项目事件 beforeloadoutertable 中写了如下代码，但不管用，

还是不能按条件加载。

If e.DataTableName = "授权表" Then
       Dim  zddm As String = UKey.ReadStr(60,10).Trim()
        e.S e l e c tString = "S el e c t [_Identify],到期时间,终端代码,注册码 From {授权表} Where 终端代码 = zddm"

End If


select无法上传，我把它分开了 

[此贴子已经被作者于2015/8/19 14:52:14编辑过]
--  作者：有点蓝
--  发布时间：2015/8/19 15:05:00
--  
"S el e c t [_Identify],到期时间,终端代码,注册码 From {授权表} Where 终端代码 = \'" & zddm & "\'"
--  作者：WUZHAN
--  发布时间：2015/8/19 15:16:00
--  
多谢蓝老师和红老师！你们辛苦了!