[Visual Basic] Private Sub btnAufbereiten_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
btnAufbereitenCSV.Click
[Visual Basic] Private Sub btnAufbereiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAufbereitenCSV.Click
Me.Cursor = Cursors.WaitCursor
If Me.auswertungen.Auswertung.bTXP_Auswertung.Value = True Then
TXP_Auswertung()
Me.Cursor = Cursors.Default
Exit Sub
End If
Get_SQLWhere()
Me.Auswertungsdaten = Me.auswertungen.Get_Auswertungsdaten(Me.auswertungen.Auswertung.sSQL.Value, SQLWhere)
Dim f As New frmAuswertung(Me.TreeAuswertungen.SelectedNode.Text, Me.Auswertungsdaten)
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