| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 全局变量 在启动中 是否有效？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48511) |
| -- 作者：shixia -- 发布时间：2014/3/31 8:42:00 -- 全局变量 在启动中 是否有效？ 我设置了一个全局变量，主要针对启动时加载表的条件，每次操作都会对加载表的条件作个修改，希望下次启动时按设定的条件加载表，然后我在BeforeLoadOuterTable 中将变量引用作为条件加载，在重启项目后显示无法加载。请问全局变量 在BeforeLoadOuterTable 中能外用吗？ |
| -- 作者：Bin -- 发布时间：2014/3/31 8:44:00 -- 全局变量,关闭系统后就释放了. 你要利用SaveCOnfigValue |
| -- 作者：shixia -- 发布时间：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 详细错误信息： 未将对象引用设置到对象的实例。 |
| -- 作者：有点甜 -- 发布时间：2014/3/31 11:32:00 -- 排错。
1、Dim Filter As String = "1=1"
2、如果你外部数据源是sqlserver，##要改成\'\'
3、代码看着应该没什么问题，看是否其它问题 |
| -- 作者：shixia -- 发布时间：2014/3/31 11:35:00 -- 1、Dim Filter As String = "1=1" 是什么意思 2、用的Access Date.today 在该事件中能用吧 [此贴子已经被作者于2014-3-31 11:35:37编辑过]
|
| -- 作者：有点甜 -- 发布时间：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 -- 发布时间：2014/3/31 13:26:00 -- 把该事件中所有代码删除，只保留 Dim st1 As String st1 = GetConfigValue("RKSX","没有显示设置") ‘ RKSX 在项目中已经设置 错误依旧。 可能在该事件中不能使用 GetConfigValue ？ |
| -- 作者：Bin -- 发布时间：2014/3/31 14:04:00 -- RKSX 换一个名称看看. |
| -- 作者：有点甜 -- 发布时间：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
|