- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树节点双击错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165337)
-- 发布时间：2021/5/14 11:09:00
-- 目录树节点双击错误
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Filter As String
Dim Month As Integer = dr("月")
If e.Node.Text = "加载所有行" Then
filter = ""
Else
Select Case e.Node.Level
Case 0
Filter =" Month(账期) = " & Month
End Select
End If
DataTables("固定资产台账").loadFilter = Filter
DataTables("固定资产台账").load
此主题相关图片如下：加载树.png
-- 发布时间：2021/5/14 11:10:00
--
Dim Filter As String
If e.Node.Text = "加载所有行" Then
filter = ""
Else
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Month As Integer = dr("月")
Select Case e.Node.Level
Case 0
Filter =" Month(账期) = " & Month
End Select
End If
DataTables("固定资产台账").loadFilter = Filter
DataTables("固定资产台账").load
Dim Month As Integer = dr("月")
Select Case e.Node.Level
Case 0
Filter =" Month(账期) = " & Month
End Select
End If
DataTables("固定资产台账").loadFilter = Filter
DataTables("固定资产台账").load
[此贴子已经被作者于2021/5/14 11:10:12编辑过]