[Visual Basic] Private Sub ToolStripButton1_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
TSBtnApplReport.Click
[Visual Basic] Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnApplReport.Click
Dim auswertungen As New TKB.Auswertung.clsAuswertung
Dim SQLWhere As String = ""
Dim Auswertungsdaten As New DataTable
auswertungen.Get_Auswertung(999)
Auswertungsdaten = auswertungen.Get_Auswertungsdaten(auswertungen.Auswertung.sSQL.Value, Me.Applikation.iApplikationNr.Value)
Dim f As New frmcrreporting(Auswertungsdaten, auswertungen.Auswertung.iAuswertungNr.Value, auswertungen, False)
f.MdiParent = Me.MdiParent
Me.Cursor = Cursors.Default
f.Show()
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition