[Visual Basic] Private Sub btnDeleteSavedParam_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
btnDeleteSavedParam.Click
[Visual Basic] Private Sub btnDeleteSavedParam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteSavedParam.Click
If Me.ComboboxMAParameter.SelectedIndex = -1 Then Exit Sub
Me.auswertungen.delete_parameter(Me.ComboboxMAParameter.SelectedValue)
Me.Init_Params()
Me.txtTitel1.Text = Me.TreeAuswertungen.SelectedNode.Text
Me.txtTitel2.Text = ""
Me.checkboxprintparam.Checked = True
If Me.auswertungen.MitarbeiterAuswertungsparameter.Rows.Count > 0 Then
Me.ComboboxMAParameter.Visible = True
Me.On_Load = True
Try
Me.ComboboxMAParameter.DataSource = Nothing
Me.ComboboxMAParameter.DataSource = Me.auswertungen.MitarbeiterAuswertungsparameter
Me.ComboboxMAParameter.DisplayMember = "Beschreibung"
Me.ComboboxMAParameter.ValueMember = "Mitarbeiter_AuswertungsparameterNr"
Me.ComboboxMAParameter.SelectedIndex = -1
Catch ex As Exception
End Try
Me.On_Load = False
Else
Me.ComboboxMAParameter.Visible = False
End If
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