MessageBox.Show(1)
vars("p1_pidx") =new Dictionary(Of String,List(Of String))'窗口按钮数组
MessageBox.Show(2)
Vars("p1_pname")=New Dictionary(Of String,String)'
MessageBox.Show(3)
vars("p1_ymjz") = New Dictionary(Of String,List(Of String))'窗口页面加载一次使用
MessageBox.Show(4)
vars("p1_kjjz") = New Dictionary(Of String,List(Of String))'窗口控件加载一次使用
vars("p1_cdjz") = New Dictionary(Of String,List(Of String))'窗口控件加载一次使用
MessageBox.Show(5)
vars("p1_pcanl") =New Dictionary(Of String,List(Of String))'窗口页面未完成登记不能切换范围
MessageBox.Show(6)
'vars("p1_pcanl").clear
MessageBox.Show(7)
vars("p1_tlff") = New Dictionary(Of String,List(Of String))'添加方法一次使用
MessageBox.Show(8)
'vars("p1_ymjz").clear
Select Case frmname
Case "serevmain"
vars("p1_pcanl").add("serevmain","JD0101")