Si ti theras te dhena ne treeview

[Vb.Net]

Jam duke tentuar qe te bej diqka ne lidhje me Treeview per ti lexuar faturat , por nuk e di si ti dal ne krye kesaj pune.
a ka kush me i dal ne ndihme ketij te shkretit bre

[Vb.Net]

E kam shkruajt edhe ne anglisht mos po del najkush qe sdi shqip e nashta ja shoh hajrin edhe atij.
Tabelat jane te formum ne Ms Access 2007 por edhe nese eshte ne sql server nuk ka naj problem, edhe nese e bani ne ms access me kryen pune , me rendesi eshte ta shoh ecurine epunes, pastaj connectionin e nderroj vete.

[hot_prinz]

Krijimi i nje Treenode te shkallezuar:

treeView1.Nodes.Clear();


    TreeNode treeNode = new TreeNode(di.name);
    treeNode.Name = di.Name;
    treeNode.ToolTipText = di.Name;
    treeNode.ForeColor = Color.White;
    treeNode.BackColor = Color.Maroon;
    treeView1.Nodes.Add(treeNode);

    int indexL = 0;
    foreach (string sx in lpath)
    {
        DirectoryInfo dix = new DirectoryInfo(sx);

        Linie l = new Linie(dix.Name, s, zF, ausWD, ausWZ, ausDH);
        Linien.Add(l);

        TreeNode treeNodex = new TreeNode();
        treeNodex.Name = dix.Name;
        treeNodex.Text = dix.Name;
        treeNodex.ForeColor = Color.DarkGreen;
        treeView1.Nodes[indexG].Nodes.Add(treeNodex);

        int indexID = 0;
        foreach (Plan p in l.prog)
        {

            TreeNode test = new TreeNode();
            test = treeView1.Nodes[indexG].Nodes[indexLinien];
            test.ForeColor = Color.DarkRed;

        TreeNode pT = new TreeNode();
                pT.Name = l.Name + ";" + p.Name;
                pT.Text = p.Name + " - (" + p.Count + ")";
                pT.ForeColor = Color.Navy;
                treeView1.Nodes[indexG].Nodes[indexL].Nodes.Add(pT);
                foreach (ID id in p.Id)
                {
                    TreeNode pI = new TreeNode();
                        pI.Name = l.Name + ";" + p.Name + ";" + id.Name;
                        pI.Text = id.Name + " - (" + id.Count + ")";
                        pI.ForeColor = Color.DarkViolet;
                        treeView1.Nodes[indexG].Nodes[indexL].Nodes[indexID].Nodes.Add(pI);
                }

                indexID++;

                
         }

         indexL++;

    }
                
    treeView1.Nodes[0].Expand(); 

Pamja e TreeNode:





Aksioni kur klikohet nje Node ne TreeNode:

            private void treeView1_AfterSelect(object sender, TreeViewEventArgs e)
                {

                    TreeNode node = treeView1.SelectedNode;
            DoSomethingWith...(node.Name);
                
                } 

[Vb.Net]

Ky eshte Kodi i C# une punoj ne VB.net
nuk marr vesh kete kod

[hot_prinz]

Nodet ne Treeview i ke kriju manualisht apo jane te krijuara ne menyren dinamike, pergjate runtime?
Bashkangjite projektin dhe databazen, se po pritoj ti krijoj nga fillimi.

Ecuria e punes eshte keshtu, se pari e nderton lidhjen ne databaze, pastaj me Select ne foreach per cdo klient krijon nje node kryesore, kurse faturat ne foreach i fut si nder node, kur shtypet Noda kryesore i shfaq faturat e klientit dhe kur shtypet nder noda i shfaq artikujt e fatures ne nje Listview apo Datagridview.

Problemin qe e shof per kete zgjidhje eshte, nese per klientet ekzistojne me qindra fatura, atehere duhet te besh scroll ne treeview me kilometra. :/

Ose duhet qe ne treeview te futen vetem 20 faturat e para dhe ne noda e fundit per klientin te mban funksionin se nese klikohet te tregoje 20 fatura tjera, apo ne fatura te ruhet data e fatures dhe faturat te shfaqen ne treeview ne baze kohore, muaji, viti, etj.

[Vb.Net]

Si ti theras kliendtet me faturat e tyre dhe kur ta kikoj numrin e fatures ne treeview te me shfaqen te dhenat e fatures ne listview ose datagrid

[Vb.Net]

Hot Prinz ta dergova projektin po akoma nuk mora pergjigjen

[hot_prinz]

E lexova, por ende s'pata kohe me te kthy pergjigjen.
Do te pergjigjem se shpejti.

[hot_prinz]

Ja kodi i Programit, qe e mbush Treeview pergjate runtime dhe me nje klik ne BillNr therret Faturen ne nje ListBox dhe mbledh vleren e Artikujve.
Derisa u pershtata ne VB dhe Access.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MbusheTreeview()
    End Sub
    Private Sub MbusheTreeview()
        Dim con As OleDbConnection
        Dim sql As String
        Dim str As String = "Provider=Microsoft.Jet.oledb.4.0;Data Source=.\ExDatabase.mdb;"
        con = New OleDbConnection(Str)
        sql = "select * from client"
        Dim cmd As OleDbCommand
        Dim r As OleDbDataReader
        Try
            con.Open()
            cmd = New OleDbCommand(sql, con)
            r = cmd.ExecuteReader()
            Dim i As Integer = 0
            While r.Read
                Dim node As TreeNode = New TreeNode
                node.Text = r("client")
                node.Name = r("clientid")
                TreeView1.Nodes.Add(node)
                Dim subs As ArrayList = MerrSubNodat(r("clientid"))
                For Each s As String In subs
                    Dim nodes As TreeNode = New TreeNode
                    nodes.Text = s
                    TreeView1.Nodes(i).Nodes.Add(nodes)
                Next
                i = i + 1
            End While
            con.Close()
        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try
    End Sub
    Private Function MerrSubNodat(ByVal index As Integer) As ArrayList
        Dim t As ArrayList = New ArrayList
        Dim con As OleDbConnection
        Dim sql As String
        Dim str As String = "Provider=Microsoft.Jet.oledb.4.0;Data Source=.\ExDatabase.mdb;"
        con = New OleDbConnection(str)
        sql = "SELECT * from BillNr where ClientId=" & index
        Dim cmd As OleDbCommand
        Dim r As OleDbDataReader
        Try
            con.Open()
            cmd = New OleDbCommand(sql, con)
            r = cmd.ExecuteReader()
            While r.Read
                If r("clientid") = index Then
                    t.Add(r("billnr"))
                End If
            End While
            con.Close()
        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try
        Return t
    End Function

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        ListBox1.Items.Clear()
        Dim node As TreeNode = TreeView1.SelectedNode
        If node.FullPath.IndexOf("\") > 0 Then
            Dim temp As Array = node.FullPath.Split("\")
            Dim client = temp(0)
            Dim billnr = temp(1)
            Dim con As OleDbConnection
            Dim sql As String
            Dim str As String = "Provider=Microsoft.Jet.oledb.4.0;Data Source=.\ExDatabase.mdb;"
            con = New OleDbConnection(str)
            sql = "SELECT Client.ClientID AS Client_ClientID, Client.Client, BillNr.ID AS BillNr_ID, BillNr.ClientID AS BillNr_ClientID, BillNr.BillNr, Invoice.ID AS Invoice_ID, Invoice.BillNrID, Invoice.Pershkrimi, Invoice.Sasia, Invoice.Cmimi, Invoice.Vlera FROM (Client INNER JOIN BillNr ON Client.[ClientID] = BillNr.[ClientID]) INNER JOIN Invoice ON BillNr.[ID] = Invoice.[BillNrID];"
            Dim cmd As OleDbCommand
            Dim r As OleDbDataReader
            Try
                con.Open()
                cmd = New OleDbCommand(sql, con)
                r = cmd.ExecuteReader()
                Dim vlera As Double = 0
                While r.Read
                    If r("Client") = client And r("BillNr") = billnr Then
                        ListBox1.Items.Add(r("pershkrimi") & vbTab & r("Sasia") & vbTab & r("Cmimi") & vbTab & r("Vlera"))
                        vlera = vlera + r("Vlera")
                    End If
                End While
                TextBox1.Text = vlera
                con.Close()
            Catch ex As OleDbException
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
                End Try
        End If

    End Sub
End Class 

Databazen e kopjon ne kete Folder: "\WindowsApplication3\bin\Debug", se madhesia e archivit tejkalonte 100 kb.