[asemshahen5]

اخي العزيز نظرت الى المثال وجدت الفورم الرئيسة من دون شجرة قلت اذهب لقاعدة البيانات فوجدتها معطوبة على كل حال جهزت لك فانكشن به ما تريد انشاء الله :

PHP كود :

   ''' <summary>
    ''' Get Max Id To Tree
    ''' </summary>
    ''' <param name="TreeType">TreeView1.SelectedNode.Tag.ToString()</param>
    ''' <returns>Integer</returns>
    ''' <remarks></remarks>
    Function NewTreeID(TreeType As Integer) As Integer
        Dim x As Integer = 0
        Dim StrSQL As String = "Select IIF(Max(AccountID) Is NULL,'" & TreeType & "' + '01',Max(AccountID)+1)As ID From AccountsTree where Type=" & TreeType
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=2019.accdb;Jet OLEDB:Database Password=;")
        Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        x = dt.Rows(0)("ID").ToString()
        Return x
    End Function 


و هذا كود استعماله :

PHP كود :

       Txt_AccountID.Text = NewTreeID(TreeView1.SelectedNode.Tag.ToString)
        Txt_TYPE.Text = TreeView1.SelectedNode.Tag.ToString