以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树节点双击错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165337)
--  作者：lfz123
--  发布时间：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
[此贴子已经被作者于2021/5/14 11:10:12编辑过]