1、点击"员工工资月报"时的代码:
Dim lab As WinForm.Label = e.Form.Controls("Lab1") '动态改变标题
lab.Text = "-工资月报"
Tables("工资月报表_Table1").DataSource = DataTables("工资月报表") '动态绑定相关表
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("工资月报表","归属部门")
trv1.Nodes.Insert("显示所有员工", 0)
2、点击"员工社保月报"时的代码:
Dim lab As WinForm.Label = e.Form.Controls("Lab1") '动态改变标题
lab.Text = "-社保月报表"
Tables("工资月报表_Table1").DataSource = DataTables("社保月报表") '动态绑定相关表
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("社保月报表","归属部门")
trv1.Nodes.Insert("显示所有员工", 0)