此主题相关图片如下：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
加好友 
发短信
Post By：2018/10/11 10:53:00 [只看该作者]
