- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如果记录上一次的选择结果 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125981)
-- 发布时间：2018/10/11 10:53:00
-- 如果记录上一次的选择结果
此主题相关图片如下：10-11.png
想优化下代码 加快反应速度，想实现以下内容 不知如何写代码，请老师指点下：
年份默认为显示全部
1、如果年份的ComboBox 内容没有更改，则不自动更新，如果选择了其它年份 如 2018年，如点选了组长 展开后更新统计结果
问题1、“PAGEA展开后更新统计结果”是否在TopicPageExpanded 事件中写重加载代码
问题2、如何把新的年份显示值赋值给nr1,作为下次的判断
Dim cz As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim nr1 As String =”显示全部”
Dim nr As String =cz.text
Dim pg As String=e.page.name
Select Case pg
Case="组长"
If nr<>nr1 then
DataTables("产品信息").LoadFilter= "模具负责人 = \'" & e.link.name & "\' and year(承接日期) = \'" & nr & "\'"
DataTables("产品信息").Load
End if
End select
-- 发布时间：2018/10/11 11:11:00
--
保存信息起来，afterLoad事件重新赋值，参考
http://www.foxtable.com/webhelp/scr/1544.htm
-- 发布时间：2018/10/11 12:35:00
--
此主题相关图片如下：10-11-2.png
我想在combox1 的TextChanged 事件中进行SaveConfigValue 的保存，出现错误信息，这个保存信息功能不能这样使用？
Dim tx As String =e.sender.value
Dim nf As String
Dim newnf As String
SaveConfigValue(nf, tx)
newnf=GetConfigValue(nf)
MessageBox.show(newnf)
-- 发布时间：2018/10/11 12:45:00
--
newnf=GetConfigValue(nf,"2018") 增加默认值后 不会跳出错误了
但是更换年份时 不会跳出测试的对话框
MessageBox.show(newnf)
-- 发布时间：2018/10/11 14:42:00
--
textChanged事件
SaveConfigValue("abc", e.sender.text)
afterLoad事件
e.form.controls("ComboBox1").Text = GetConfigValue("abc", "")
[此贴子已经被作者于2018/10/11 16:03:23编辑过]
-- 发布时间：2018/10/11 15:53:00
--
GetConfigValue 只能使用在afterLoad事件 中吗，其它事件无法调整此命令？
-- 发布时间：2018/10/11 16:04:00
--
以下是引用ts9277在2018/10/11 15:53:00的发言：
GetConfigValue 只能使用在afterLoad事件 中吗，其它事件无法调整此命令？
GetConfigValue 只能使用在afterLoad事件 中吗，其它事件无法调整此命令？
任何地方都可以使用，需要的时候，就执行
Dim str = GetConfigValue("abc", "")
msgbox(str)