大家谁用过Infragistics UltraWebTree控件，能不能给我个数据邦定的例子

Question

求助：
大家谁用过Infragistics UltraWebTree控件，能不能给我个数据邦定的例子
例如下面的数据结构怎么怎么把树加载出来:
K_ID int 编号
K_Title nvarchar(50) 知识结构标题
K_StructCode nvarchar(50) 知识节点ID
K_ParentCode nvarchar(50) 父节点ID
有用过的吗？

Answer 1

用过，放弃了，改用IEWebControl

Answer 2

Overloads Sub AddTreeViewItems(ByVal ATree As Infragistics.WebUI.UltraWebNavigator.UltraWebTree, ByVal sqlstr As String, ByVal aryzdmc() As String)
        REM 增加树中的项目 sql语句版
        Dim I As Integer
        Dim b_app As Boolean
        Dim oldstr() As String
        Dim str() As String
        Dim msg As String
        Dim tmpFile As String
        Dim t() As Infragistics.WebUI.UltraWebNavigator.Node
        Dim T1 As Infragistics.WebUI.UltraWebNavigator.Node
        Const strNull = ""
        If ATree Is Nothing Then Return
        ReDim oldstr(aryzdmc.Length)
        ReDim str(aryzdmc.Length)
        ReDim t(aryzdmc.Length + 1)
        For I = 0 To aryzdmc.Length - 1
            oldstr(0) = strNull
            str(0) = strNull
            t(I) = New Infragistics.WebUI.UltraWebNavigator.Node
            t(I).ImageUrl = "../images/treeimage.gif"
            t(I).SelectedImageUrl = "../images/treeSelectedImag.gif"
        Next
        t(0).Text = allxm
        ATree.Nodes.Add(t(0))
        OleDbcmd = New OleDbCommand(sqlstr, OleDbcon)
        OleDbcon.Open()
        OleDbdtr = OleDbcmd.ExecuteReader(CommandBehavior.CloseConnection)
        While OleDbdtr.Read
            msg = ""
            b_app = False
            For I = 0 To aryzdmc.Length - 1
                If OleDbdtr.Item(I) Is Nothing Then tmpFile = "" Else tmpFile = OleDbdtr.Item(I).ToString
                str(I) = tmpFile
                b_app = str(I) <> oldstr(I) Or b_app
                If b_app Then
                    T1 = New Infragistics.WebUI.UltraWebNavigator.Node
                    T1.ImageUrl = "../images/treeimage.gif"
                    T1.SelectedImageUrl = "../images/treeSelectedImag.gif"
                    T1.Text = tmpFile
                    t(I).Nodes.Add(T1)
                    t(I + 1) = T1
                    oldstr(I) = str(I)
                    msg = msg & Chr(13) & tmpFile
                End If
            Next
        End While
        If OleDbdtr Is Nothing Then OleDbdtr.Close()
        OleDbcon.Close()
        If ATree.Nodes.Count > 0 Then ATree.Nodes(0).Expanded = True
    End Sub