主题：如果记录上一次的选择结果

问题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