现在做了一个记录表 表的内容由多表合同 现在用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
加好友 
发短信
Post By：2020/5/8 20:10:00 [只看该作者]
