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


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

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

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


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

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

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


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望: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
详细错误信息:
未将对象引用设置到对象的实例。

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


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望: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编辑过]

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


加好友 发短信
等级:三尾狐 帖子:759 积分:7038 威望: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 ?

 回到顶部