Visual Basic

Private Sub LoadTV()
        'On Error Resume Next
        rs.Open("[Folder]", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        Dim K, I, J, L As Integer
        Dim T, R, Pr As String
        rs.MoveFirst()
        For I = 1 To rs.RecordCount
            K = rs.Fields("Level").Value
            If J < K Then J = K
            If Not rs.EOF Then rs.MoveNext()
        Next
        rs.MoveFirst()
        For I = 0 To J
            rs.MoveFirst()
            For L = 1 To rs.RecordCount
                K = rs.Fields("Level").Value
                T = rs.Fields("head").Value '*** TEXT
                R = rs.Fields("ID").Value  '*** key = F+id
                Pr = rs.Fields("Parent").Value


                If I = 0 And K = 0 Then
                    ' TV.Nodes.Add("F" & R, T, "bc", "bo")
                    TV.Nodes.Add(R, T, "bc", "bo")
                Else
                    If K = I Then
                        '    TV.Nodes.Find("F" & Pr, True)(0).Nodes.Add("F" & R, T, "gc", "go")
                        TV.Nodes.Find(Pr, True)(0).Nodes.Add(R, T, "gc", "go")
                    End If
                End If

                My.Application.DoEvents()
                If Not rs.EOF Then rs.MoveNext()

            Next
            '          If Not rs.EOF Then rs.MoveNext()

        Next
        rs.Close()
        'rs.Open("Matn", db)
        'rs.MoveFirst()
        'For I = 1 To rs.RecordCount
        '    K = rs.Fields("Folder").Value
        '    R = rs.Fields("ID").Value
        '    T = rs.Fields("Head").Value
        '    TV.Nodes.Find("F" & K, True)(0).Nodes.Add("M" & R, T, "mc", "mo")
        '    If Not rs.EOF Then rs.MoveNext()
        'Next

        'rs.Close()

   
    End Sub

miladbiranvand wrote:

Does anyone with a friend ?

Me into your code by .
thank you

Public Class Form1
    Public DsCenter As New DataSet
    Public Count As Integer = 1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDsCenter()
        LoadTV()
    End Sub

    Public Sub FillDsCenter()
        Dim StrSql As String
        Dim da As New OleDbDataAdapter
        If Con.State = ConnectionState.Closed Then
            Con.Open()
        End If
        StrSql = "SELECT  *  FROM Folder"
        da = New OleDbDataAdapter(StrSql, Con)
        DsCenter.Clear()
        da.Fill(DsCenter, "tbl")
        Con.Close()
    End Sub


    Private Sub LoadTV()

        Dim K, I, J, L As Integer '1
        Dim T, R, Pr As String '2
        Count = 1 '3 
        For I = 1 To DsCenter.Tables("tbl").Rows.Count '4
            K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Level") '5
            If J < K Then J = K '6
            If Not (Count = DsCenter.Tables("tbl").Rows.Count) Then Count += 1
        Next 'ok
        Count = 1 'ok 
        For I = 0 To J 'ok
            Count = 1 'ok
            For L = 1 To DsCenter.Tables("tbl").Rows.Count 'ok
                K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Level") 'ok
                T = DsCenter.Tables("tbl").Rows(Count - 1).Item("head") 'ok
                R = DsCenter.Tables("tbl").Rows(Count - 1).Item("ID") 'ok
                Pr = DsCenter.Tables("tbl").Rows(Count - 1).Item("Parent") 'ok

                If I = 0 And K = 0 Then 'ok
                    TV.Nodes.Add(R, T, "bc", "bo") 'ok
                Else 'ok
                    If K = I Then 'ok

                        TV.Nodes.Find(Pr, True)(0).Nodes.Add(R, T, "gc", "go") 'ok
                    End If 'ok
                End If 'ok

                If Count <> DsCenter.Tables("tbl").Rows.Count Then Count += 1
            Next
        Next


        '*** table matn
        'Count = 1
        'For I = 1 To DsCenter.Tables("tbl").Rows.Count
        '    K = DsCenter.Tables("tbl").Rows(Count - 1).Item("Folder")
        '    R = DsCenter.Tables("tbl").Rows(Count - 1).Item("ID")
        '    T = DsCenter.Tables("tbl").Rows(Count - 1).Item("Head")
        '    TV.Nodes.Find("F" & K, True)(0).Nodes.Add("M" & R, T, "mc", "mo")
        '    If Count <> DsCenter.Tables("tbl").Rows.Count Then Count += 1
        'Next
    End Sub

Dim x As String = "Fred"
        Dim y As String = "Smith"
        Dim z As String
        z = x + "/" + y

Dim x As String = "Fred"
Dim y As String = "Smith"
Dim z As String
z = x & "/" & y

Dim newString As New System.Text.StringBuilder
newString.Append(x)
newString.Append("/")
newString.Append(y)

Debug.WriteLine(newString)

Dim otherForm As Form1

For Each item As Form In My.Application.OpenForms
    If item.Name = "Form1" Then
        otherForm = item
        TextBox1.Text = otherForm.TextBox1.Text
        Exit For
    End If
Next