专家坐堂-求助加载树Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助加载树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71162)

--  作者：lingyun00800
--  发布时间：2015/7/6 14:56:00
--  求助加载树
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 ="[报岗类型] = \'" & dr("报岗类型") & "\'" 我想在语句中加入按上报时间倒序，怎么添加。
        Case 1
            Filter ="[报岗类型] = \'" & dr("报岗类型") & "\' And [报岗站] = \'" & dr("报岗站") & "\'"
    End Select
End If
DataTables("报岗").LoadFilter = Filter
DataTables("报岗").Load()

--  作者：大红袍
--  发布时间：2015/7/6 15:06:00
--
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 ="[报岗类型] = \'" & dr("报岗类型") & "\'"
        Case 1
            Filter ="[报岗类型] = \'" & dr("报岗类型") & "\' And [报岗站] = \'" & dr("报岗站") & "\'"
    End Select
End If
DataTables("报岗").LoadFilter = Filter
DataTables("报岗").Load()
Tables("报岗").Sort = "上报时间 desc"