以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请高手帮我修正  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59024)
--  作者：time
--  发布时间：2014/10/28 14:23:00
--  [求助]请高手帮我修正

在某一个表的表属性BeforeLoad事件

e.DataTable.loadFilter= "(" & e.DataTable.loadFilter & ") and 有效值 > 0"

目的： 这个条件不加载"有效值"列小于0的行,只加载"有效值"列大于0的行
上列代码当点击加载树的某一个节点时正常，当点击加载树框内的“加载所有行”时提醒:
\'NET Framework 版本:2.0.50727.3053
Foxtable 版本:2014.10.23.1
错误所在事件:加载[机构]失败!
详细错误信息:
语法错误 (操作符丢失) 在查询表达式 \'(() and 有效值 > 0)\' 中.


\'请教怎样设置当点击"加载所有行"时提醒为"您无权加载所有行!"

 

另外一个问题：当点击在线升级时，当无需升级时提醒语言建议修改为：您现在所用的数据库系统已经是最新版本，无需升级！
--  作者：有点甜
--  发布时间：2014/10/28 14:28:00
--  

e.DataTable.loadFilter= "(" & iif(e.DataTable.loadFilter="", "1=1", e.DataTable.LoadFilter) & ") And 有效值 > 0"
 
--  作者：Bin
--  发布时间：2014/10/28 14:28:00
--  
if e.DataTable.loadFilter <. "" then
e.DataTable.loadFilter= "(" & e.DataTable.loadFilter & ") and 有效值 > 0"
end if
--  作者：Bin
--  发布时间：2014/10/28 14:29:00
--  
if e.DataTable.loadFilter <> "" then
e.DataTable.loadFilter= "(" & e.DataTable.loadFilter & ") and 有效值 > 0"
end if
--  作者：time
--  发布时间：2014/10/28 14:34:00
--  
首先感谢各位，我的目的是永远都不要加载所有行，请教如何实现？
--  作者：time
--  发布时间：2014/10/28 14:36:00
--  
最好是能够隐藏加载所有行的命令功能
--  作者：有点甜
--  发布时间：2014/10/28 14:36:00
--  

2楼，有问题？
--  作者：Bin
--  发布时间：2014/10/28 14:37:00
--  
if e.DataTable.loadFilter ="" orElse e.DataTable.loadFilter = "有效值 > 0" then
   e.DataTable.loadFilter= "有效值 > 0"
else
  e.DataTable.loadFilter= "(" & e.DataTable.loadFilter & ") and 有效值 > 0"
end if
--  作者：有点甜
--  发布时间：2014/10/28 14:38:00
--  
If e.DataTable.loadFilter > "" Then
    e.DataTable.loadFilter = "(" & e.DataTable.loadFilter & ") and 有效值 > 0"
Else
    msgbox("你无权加载所有行")
    e.DataTable.loadFilter = "1=2"
End If
--  作者：time
--  发布时间：2014/10/28 14:42:00
--  

感谢！！！非常感谢！！！


e.DataTable.loadFilter= "(" & iif(e.DataTable.loadFilter="", "1=1", e.DataTable.LoadFilter) & ") And 有效值 > 0"
 
上列代码能实现之加载有效期内的信息