Public Class frmReportauswahl

    Dim db As New clsDB

    Dim grpalt As String = ""
    Dim tn As New DevComponents.AdvTree.Node
    Private Sub frmReportauswahl_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TreeAuswertungen.Nodes.Clear()
        db.Get_Tabledata("Auswertungen", "", "SELECT * FROM dbo.Auswertung WHERE aktiv=1 ORDER BY gruppe, bezeichnung", "")
        For Each r As DataRow In db.dsDaten.Tables(0).Rows
            If grpalt <> r.Item("Gruppe") Then
                grpalt = r.Item("Gruppe")
                tn = New DevComponents.AdvTree.Node
                tn.Tag = r.Item("Auswertungnr") * -1
                tn.Text = r.Item("Gruppe")
                tn.ImageIndex = 0
                Me.TreeAuswertungen.Nodes.Add(tn)
            End If
            Dim tc As New DevComponents.AdvTree.Node
            tc.Tag = r.Item("Auswertungnr")
            tc.Text = r.Item("Bezeichnung")
            tc.ImageIndex = 1
            tn.Nodes.Add(tc)
        Next
        Me.TreeAuswertungen.ExpandAll()
    End Sub

    Private Sub TreeAuswertungen_Click(sender As Object, e As EventArgs) Handles TreeAuswertungen.Click

    End Sub

    Private Sub TreeAuswertungen_DoubleClick(sender As Object, e As EventArgs) Handles TreeAuswertungen.DoubleClick
        If Me.TreeAuswertungen.SelectedNode.Tag > 0 Then
            Dim f As New frmReportView(Me.TreeAuswertungen.SelectedNode.Tag, False, Me.TreeAuswertungen.SelectedNode.Text)
            f.MdiParent = Me.MdiParent
            f.Show()
        End If
    End Sub

    Private Sub DesignToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DesignToolStripMenuItem.Click
        Dim rpt As New frmReportView(Me.TreeAuswertungen.SelectedNode.Tag, True, Me.TreeAuswertungen.SelectedNode.Text)
        rpt.DesignReport()
        rpt = Nothing
    End Sub

    Private Sub ReportDateiSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportDateiSpeichernToolStripMenuItem.Click
        Dim db As New clsDB
        Dim filename As String
        'Me.OpenFileDialog1.AddExtension = "Report-Dateien|*.frx"
        OpenFileDialog1.ShowDialog()
        If Me.OpenFileDialog1.FileName <> "" Then db.Save_RptDatei(Me.TreeAuswertungen.SelectedNode.Tag, Me.OpenFileDialog1.FileName)
    End Sub

 
End Class