点击“员工工资月报”时,加上代码vars("name") = "员工工资月报"
点击“员工社保月报”时,加上代码
vars("name") = "员工社保月报"
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
If vars("name") = "员工工资月报" Then
trv1.BuildTree("工资月报表","归属部门")
trv1.Nodes.Insert("显示所有员工", 0)
ElseIf vars("name") = "员工社保月报" Then
trv1.BuildTree("社保月报表","归属部门")
trv1.Nodes.Insert("显示所有员工", 0)
End If