| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101143) |
| -- 作者：kaituozhe -- 发布时间：2017/5/25 17:39:00 -- 目录树 这是目录树的生成代码 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.GenerateTree("部门表","部门编号","部门名称", ".") 这是目录树NodeMouseClick事件中的代码，目的是选择此目录是e.Form.Controls("ComboBox1").text 等于部门编号 Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 Select Case e.Node.Level Case 0 e.Form.Controls("ComboBox1").text = e.Node.Text End Select |
| -- 作者：有点色 -- 发布时间：2017/5/25 18:10:00 -- Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
e.Form.Controls("ComboBox1").text = dr("部门编号")
你的问题是？ |
| -- 作者：kaituozhe -- 发布时间：2017/5/25 18:20:00 -- 已解决了，谢谢！另外一个问题，我想问一下，增加了一个按钮，点按钮实现增加一行，并且该行部门编号列等于当前节点行的部门编号 |
| -- 作者：有点色 -- 发布时间：2017/5/25 18:34:00 -- Dim nr As DataRow = DataTables("表A").AddNew |