Hallo ihr Profis,
ich bin leider ein Anfänger in VB-Datenbankprogrammierung und hoffe, das ihr mir helfen könnt.
Mit folgendem Code wähle ich eine Zeile in der Listbox Sensorlist durch klicken auf einen Button zu der Listbox Sensoren hinzu:
Jetzt möchte ich die Möglichkeit haben zugefügte und bereits enthaltene Sensoren wieder zu entfernen:
Könnte mir hier jemand behilflich sein? Wäre echt super!
Gruß,
Huuut
Edit by Dodo:
Nächstes Mal bitte deinen Post editieren.
-> Überarbeiteten VB Code eingefügt
ich bin leider ein Anfänger in VB-Datenbankprogrammierung und hoffe, das ihr mir helfen könnt.
Mit folgendem Code wähle ich eine Zeile in der Listbox Sensorlist durch klicken auf einen Button zu der Listbox Sensoren hinzu:
VB.NET-Quellcode
- Private Sub Button_Auswaehlen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Auswaehlen.Click
- If Trim(TextBox_Sensor_Kommentar.Text) = "" Then
- MsgBox("Kommentarfeld muss gefüllt sein", MsgBoxStyle.Information)
- Else
- Dim Zusatz_Sensor As DataRow = Me.DataSet_LED1_Motorendatenbank.spSENSOR_BAUREIHE_SELECT_SENSOR_LIST_BY_Kurzangabe.NewRow()
- Zusatz_Sensor("Caption") = ListBox_Sensorliste.SelectedItem("SENSOR_KURZANGABE").ToString & " - " & TextBox_Sensor_Kommentar.Text
- Zusatz_Sensor("PKEY") = ListBox_Sensorliste.SelectedItem("SENSOR_KEY")
- Me.DataSet_LED1_Motorendatenbank.spSENSOR_BAUREIHE_SELECT_SENSOR_LIST_BY_Kurzangabe.Rows.Add(Zusatz_Sensor)
- WF_02_Pflegemaske.ListBox_Sensoren.Update()
- Me.Close()
- End If
- End Sub
Jetzt möchte ich die Möglichkeit haben zugefügte und bereits enthaltene Sensoren wieder zu entfernen:
VB.NET-Quellcode
- Private Sub Button_Temperfassung_Entfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Temperfassung_Entfernen.Click
- Dim n As Integer = ListBox_Sensoren.SelectedItem("PKEY")
- Dim Gewaehlter_Sensor As DataRow = Me.DataSet_LED1_Motorendatenbank.spSENSOR_BAUREIHE_SELECT_SENSOR_LIST_BY_Kurzangabe.Item(n)
- Me.DataSet_LED1_Motorendatenbank.spSENSOR_BAUREIHE_SELECT_SENSOR_LIST_BY_Kurzangabe.Rows.Remove(Gewaehlter_Sensor)
- End Sub
Könnte mir hier jemand behilflich sein? Wäre echt super!
Gruß,
Huuut
Edit by Dodo:
Nächstes Mal bitte deinen Post editieren.
-> Überarbeiteten VB Code eingefügt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dodo“ ()