| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口中表的数据填充 (http://foxtable.com/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)
|