You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
2.3 KiB
55 lines
2.3 KiB
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 |