以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中表的数据填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92972)

--  作者:有点青
--  发布时间:2016/11/17 15:26:00
--  
Dim yd As WinForm.ComboBox = e.Form.Controls("Cmbnd1")
Dim md As WinForm.ComboBox = e.Form.Controls("Cmbyf1")
For Each dr As Row In Tables("工资月报表_Table1").Rows
    dr("年度") = yd.Value
    dr("月份") = md.Value
Next

--  作者:有点青
--  发布时间:2016/11/17 15:57:00
--  

弹出对应的值

 

msgbox(Tables("工资月报表_Table1").DataTable.Name)


--  作者:有点蓝
--  发布时间:2016/11/17 17:21:00
--  
点击“员工工资月报”时,加上代码
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

--  作者:有点青
--  发布时间:2016/11/17 18:12:00
--  
以下是引用ZJZK2015在2016/11/17 18:04:00的发言:
但还是出错了

 

报什么错?


--  作者:有点蓝
--  发布时间:2016/11/18 8:38:00
--  
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)