怎样设置把加载树显示在主页来？代码改怎么写？弄好了好几次都没有弄对头如图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

希望多多指导指导看一下该怎么设置谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:价格查询对比.rar

[此贴子已经被作者于2013-4-24 12:14:05编辑过]

例子表也发上来了，直接在表里设置和在窗口管理里设置多谢

楼主想在窗口中的Table控件的左边，显示加载树，但加载树只支持主表，不支持副表。

我在 AfterLoad 里输入的是 e.Form.Controls("TreeView1").BuildTree("产品表", "品牌|产品|分类|型号")

在 NodeMouseDoubleClick里输入的是

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim Value() As String
    Value = e.Node.FullPath.Split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[品牌] = '" & Value(0) & "'"
        Case 1
            Filter ="[品牌] = '" & Value(0) & "' And [产品] = '" & Value(1) & "'"
        Case 2
            Filter ="[品牌] = '" & Value(0) & "' And [产品] = '" & Value(1) & "' And [分类] = '" & Value(2) & "'"
        Case 3
            Filter ="[品牌] = '" & Value(0) & "' And [产品] = '" & Value(1) & "' And [分类] = '" & Value(2) & "' And [型号] = '" & Value(3) & "'"
    End Select
End If
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()

为什么显示出来的不显示"加载所有行呢？"

此主题相关图片如下：0.jpg

上图不显示下图所示里的加载所有行？

dvubb

此主题相关图片如下：xx(p.jpg

也搞定了

把 AfterLoad 改成以下

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 品牌,产品,分类,型号 From {产品表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"品牌|产品|分类|型号")
trv.Nodes.Insert("加载所有数据",0)

版主老大那个价格对比查询那个怎么弄您那点有没有这方面的让我参考一下嘛。多谢

muhua	小大 11楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/23 11:31:00 [只看该作者] 用户已被锁定

主题：怎样设置 把加载树显示在主页来？ 代码改怎么写？ 弄好了好几次都没有弄对头 如图

主题：怎样设置把加载树显示在主页来？代码改怎么写？弄好了好几次都没有弄对头如图