以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载树不能通过节点加载订单表内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150281)
--  作者：Jaime
--  发布时间：2020/5/26 9:47:00
--  加载树不能通过节点加载订单表内容
老师好！
我在主窗口类型中绑定了两个Normal表，订单和订单.订单明细, 两表建立了单向关联，窗口中加了一个TreeView，希望通过双击加载树各节点加载订单表，但是双击节点不能自动加载，请老师指导下，代码如下：

窗口AfterLoad：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 大类自用,中类自用,小类自用,型号规格 F rom {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.F orm.Controls("TreeView1")
trv.BuildTree(dt,"大类自用|中类自用|小类自用|型号规格")
trv.Nodes.Insert("加载所有数据",0)



加载树 NodeMouseDoubleClick：


Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow           \'获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[大类自用] = \'" & dr("大类自用") & "\'"
        Case 1
            Filter ="[大类自用] = \'" & dr("大类自用") & "\' And [中类自用] = \'" & dr("中类自用") & "\'"
        Case 2
            Filter ="[大类自用] = \'" & dr("大类自用") & "\' And [中类自用] = \'" & dr("中类自用") & "\'And [小类自用] = \'" & dr("小类自用") & "\'"
        Case 3
            Filter ="[大类自用] = \'" & dr("大类自用") & "\' And [中类自用] = \'" & dr("中类自用") & "\'And [小类自用] = \'" & dr("小类自用") & "\'And [型号规格] = \'" & dr("型号规格") & "\'"
    End Select
End If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()


外部数据表中订单表的过滤/排序 ：

[_Identify] Is Null


[此贴子已经被作者于2020/5/26 9:48:30编辑过]
--  作者：有点蓝
--  发布时间：2020/5/26 9:59:00
--  
msgbox（Filter） \'显示什么条件？
DataTables("订单").LoadFilter = Filter
DataTables("订单").Loadtop = nothing
DataTables("订单").Load()
--  作者：Jaime
--  发布时间：2020/5/27 9:11:00
--  
谢谢蓝老师！  DataTables("订单").Loadtop = nothing 增加后能正常加载了，
我查了帮助Loadtop的属性:  字符型，指定要加载的行数，如果是分页加载，则用于指定每页的行数。
再没找到其它的，我不理解为啥加了Loadtop就正常了？
[此贴子已经被作者于2020/5/27 9:11:35编辑过]
--  作者：有点蓝
--  发布时间：2020/5/27 9:24:00
--  
应该是之前设置过分页，或者是外部表管理里没有选好，这些都会影响代码里的load的效果