Foxtable(狐表)用户栏目专家坐堂 → 用SQL语句设计加载树的问题


  共有7428人关注过本帖树形打印复制链接

主题:用SQL语句设计加载树的问题

帅哥哟,离线,有人找我吗?
zbsdkq012890
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1199 威望:0 精华:0 注册:2013/3/7 11:20:00
用SQL语句设计加载树的问题  发帖心情 Post By:2013/5/1 19:12:00 [显示全部帖子]

1:窗口的AfterLod事件代码设为

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)

2:目录树的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) & "'"

    End Select
End If
DataTables("配方").LoadFilter = Filter
DataTables("配方").Load()
forms("配方录入").open()

上面的代码在使用内部数据表时一切正常,但是把内部数据表转换为外部数据表后,窗口的一起都正常,就是目录树不能加载数据,提示为窗口的AfterLod事件代码有误。

请大侠们帮我修改代码,恳求帮忙!!


 回到顶部
帅哥哟,离线,有人找我吗?
zbsdkq012890
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1199 威望:0 精华:0 注册:2013/3/7 11:20:00
  发帖心情 Post By:2013/5/1 19:32:00 [显示全部帖子]

能给在明白些吗,把数据源名字加载什么位置,格式是什么样的啊?

 


 回到顶部
帅哥哟,离线,有人找我吗?
zbsdkq012890
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:1199 威望:0 精华:0 注册:2013/3/7 11:20:00
  发帖心情 Post By:2013/5/1 19:37:00 [显示全部帖子]

请在表达清楚些吧,加载什么位置,什么格式啊

 回到顶部