| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- SQLLOAD多表分页下的 目录树选择 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149663) |
| -- 作者：aoc103 -- 发布时间：2020/5/8 20:10:00 -- SQLLOAD多表分页下的 目录树选择 现在做了一个记录表 表的内容由多表合同 现在用SQLLOAD分页已经做好，做了一个目录树TREEVIEW1,如果是直接点击目录树 可以筛选得到数据，也是只有第一页，可是当要点击下一页的按钮的时候，我不知道要如何在按钮里得到TREEVIEW1控里的值，就是要如何知道 我点了目录树里的哪一个内容，不知道要如何获得，麻烦解惑，谢谢 以下为TREEVIEW1里的代码 Dim Filter As String \'定义过滤 If e.node.Text = "加载所有数据" Then Filter = "" Else Dim dr As DataRow = e.Node.DataRow Select Case e.Node.Level Case 0 Filter ="and c.品牌类型 = \'" & dr("品牌类型") & "\'" Case 1 Filter ="and c.品牌类型= \'" & dr("品牌类型") & "\' and a.[品牌] = \'" & dr("品牌") & "\'" Case 2 Filter ="and c.品牌类型 = \'" & dr("品牌类型") & "\' and a.[品牌] = \'" & dr("品牌") & "\' and [规格] = \'" & dr("规格") & "\'" Case 3 Filter ="and c.品牌类型 = \'" & dr("品牌类型") & "\' and a.[品牌] = \'" & dr("品牌") & "\' and [规格] = \'" & dr("规格") & "\'And a.[手感工艺] = \'" & dr("手感工艺") & "\'" End Select End If Dim loadtop As String = e.Form.Controls("combobox1").value \'获取每页最多记录数 Dim sqltable As String= e.Form.Controls("lbl_public").text \'获取SQL查询语句 var_Page = 1 \'初始化为第一页 Functions.Execute("LoadData",e.Form.name & "_Table1",sqltable,loadtop,Filter) \'载入数据 其中这里的FILTER 就是要把TREEVIEW里点到的值传进去，现在不知道怎么写 e.Form.Controls("combobox2").text=var_Page \'将当前页赋值给下拉列表 以下为 下一页 按钮 的代码 Dim sqltable As String= e.Form.Controls("lbl_public").text \'获取SQL查询语句 Dim loadtop As String = e.Form.Controls("combobox1").value \'获取每页显示行数 If var_Page < Functions.Execute("Pages",40) Then var_Page = var_Page + 1 Functions.Execute("LoadData",e.Form.name & "_Table1",sqltable,loadtop,"") e.Form.Controls("combobox2").text=var_Page End If |
| -- 作者：有点蓝 -- 发布时间：2020/5/9 9:01:00 -- 如果是在目录树点击事件里，e.node就是当前点击的节点 如果是在按钮里，e.Form.Controls("目录树控件").selectednode就是当前点击的节点
|