Foxtable(狐表)用户栏目专家坐堂 → 全局变量 在启动中 是否有效?


  共有3427人关注过本帖树形打印复制链接

主题:全局变量 在启动中 是否有效?

帅哥哟,离线,有人找我吗?
shixia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:754 积分:6991 威望:0 精华:1 注册:2008/9/2 20:04:00
全局变量 在启动中 是否有效?  发帖心情 Post By:2014/3/31 8:42:00 [只看该作者]

 我设置了一个全局变量,主要针对启动时加载表的条件,每次操作都会对加载表的条件作个修改,希望下次启动时按设定的条件加载表,然后我在BeforeLoadOuterTable 中将变量引用作为条件加载,在重启项目后显示无法加载。请问全局变量 在BeforeLoadOuterTable 中能外用吗?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 8:44:00 [只看该作者]

全局变量,关闭系统后就释放了.

你要利用SaveCOnfigValue


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:754 积分:6991 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2014/3/31 11:03:00 [只看该作者]

在  BeforeLoadOuterTable     如下设置:
 Dim st1 As String
        st1 = GetConfigValue("RKSX","没有显示设置")  ‘   RKSX 在项目中已经设置    
        
        Dim Filter As String
        Select Case e.DataTableName
            Case "入库"
              If st1 = "显示本日记录" Then
                        Filter = "[日期] = #" & Date.Today & "#"
                    ElseIf st1 =  "显示本月记录" Then
                        Filter = "[年] = " & Date.Today.year & " And [月] = " & Date.Today.Month
                    ElseIf st1 =  "显示本年记录" Then
                        Filter = "[年] = " & Date.Today.year
                    ElseIf st1 =  "显示上月记录" Then
                        If Date.Today.Month = 1 Then
                            Filter = "[年] = " & Date.Today.year-1 & " And [月] =12 "
                        Else
                            Filter = "[年] = " & Date.Today.year & " And [月] = " & Date.Today.Month-1
                        End If
                    ElseIf st1 =  "显示上年记录" Then
                        Filter = "[年] = " & Date.Today.year-1
                End If
                e.SelectString = "Select * From {入库} Where " & Filter
              
        End Select



启动项目后显示:
.NET Framework 版本:2.0.50727.4984
Foxtable 版本:2014.3.8.1
错误所在事件:项目,BeforeLoadOuterTable
详细错误信息:
未将对象引用设置到对象的实例。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/31 11:32:00 [只看该作者]

 排错。

 

1、Dim Filter As String = "1=1"

 

2、如果你外部数据源是sqlserver,##要改成''

 

3、代码看着应该没什么问题,看是否其它问题


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:754 积分:6991 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2014/3/31 11:35:00 [只看该作者]

 1、Dim Filter As String = "1=1"  是什么意思
2、用的Access
Date.today 在该事件中能用吧
[此贴子已经被作者于2014-3-31 11:35:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/31 11:54:00 [只看该作者]

以下是引用shixia在2014-3-31 11:35:00的发言:
 1、Dim Filter As String = "1=1"  是什么意思
2、用的Access
Date.today 在该事件中能用吧
[此贴子已经被作者于2014-3-31 11:35:37编辑过]

 

代码应该是没什么问题的吧?你试试删除掉所有代码,看是否还报错。

 

如果不报错了,就这样调试 http://www.foxtable.com/help/topics/1485.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
shixia
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:754 积分:6991 威望:0 精华:1 注册:2008/9/2 20:04:00
  发帖心情 Post By:2014/3/31 13:26:00 [只看该作者]

 把该事件中所有代码删除,只保留
Dim st1 As String
st1 = GetConfigValue("RKSX","没有显示设置")  ‘   RKSX 在项目中已经设置    
错误依旧。
可能在该事件中不能使用 GetConfigValue ?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 14:04:00 [只看该作者]

RKSX 换一个名称看看.

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/31 14:30:00 [只看该作者]

以下是引用shixia在2014-3-31 13:26:00的发言:
 把该事件中所有代码删除,只保留
Dim st1 As String
st1 = GetConfigValue("RKSX","没有显示设置")  ‘   RKSX 在项目中已经设置    
错误依旧。
可能在该事件中不能使用 GetConfigValue ?

 

测试确实事件里不能用 GetConfigValue

 

用注册表吧。

 

http://www.foxtable.com/help/topics/2051.htm

 


 回到顶部