以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用SQL语句设计加载树的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32398)

--  作者:zbsdkq012890
--  发布时间:2013/5/1 19:12:00
--  用SQL语句设计加载树的问题

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事件代码有误。

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


--  作者:jianjingmaoyi
--  发布时间:2013/5/1 19:16:00
--  
加个数据源名字
--  作者:zbsdkq012890
--  发布时间:2013/5/1 19:32:00
--  

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

 


--  作者:zbsdkq012890
--  发布时间:2013/5/1 19:37:00
--  
请在表达清楚些吧,加载什么位置,什么格式啊
--  作者:狐狸爸爸
--  发布时间:2013/5/2 17:47:00
--  

关于这个问题,帮助专门提示了的:

 

http://www.foxtable.com/help/topics/2344.htm