Listbox Markierung aufheben
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.
-
-
ScheduleLib 0.0.1.0
Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten -
@fichz: So isses.
Das geht sogar bei SelectionMode = MultiSimple und MultiExtended.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
Ich glaube, wir reden aneinander vorbei. Beschreib mal bitte genau, was Du konkret willst.
Mach vllt. dazu einen ScheenShot.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Ich habs so versucht, dann ist zwar alles wie ich will, nur kann ich zwar wählen aber er übernimmt keinen Wert mehr
VB.NET-Quellcode
- Private Sub KVA_(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LB_KVA.SelectedIndexChanged
- Leeren_01()
- lo = 1
- Leeren_LB()
- auftrag = LB_KVA.SelectedItem
- con1.Open()
- cmd1.CommandText = "SELECT * FROM Reparaturauftrag WHERE Auftragsnummer='" & auftrag & "'"
- reader = cmd1.ExecuteReader()
VB.NET-Quellcode
- Public Function Leeren_LB()
- Select Case lo
- Case 1
- LB_Reparatur.SelectedIndex = ListBox.NoMatches
- LB_Garantie.SelectedIndex = ListBox.NoMatches
- LB_Kulanz.SelectedIndex = ListBox.NoMatches
- Case 2
- LB_Reparatur.SelectedIndex = ListBox.NoMatches
- LB_Kulanz.SelectedIndex = ListBox.NoMatches
- LB_KVA.SelectedIndex = ListBox.NoMatches
- Case 3
- LB_Kulanz.SelectedIndex = ListBox.NoMatches
- LB_Garantie.SelectedIndex = ListBox.NoMatches
- LB_KVA.SelectedIndex = ListBox.NoMatches
- Case 4
- LB_Reparatur.SelectedIndex = ListBox.NoMatches
- LB_Garantie.SelectedIndex = ListBox.NoMatches
- LB_KVA.SelectedIndex = ListBox.NoMatches
- End Select
- Return True
- End Function
-
Svenson schrieb:
aber er übernimmt keinen Wert mehr
Option Strict On
Wozu eine Function? (Welche? Das sagt er Dir nach Option Strict On)Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Hallo RodFromGermany,
ich bin auf Option Strikt On gegangen und hab die Functionen durch Sub ersetzt.
Ich muss erst mal alles anpassen, sieh aber sauberer aus als vorher.
Vieleicht gehts dann
Ich meld mich auf alle Fälle
p.s Ist mit Option Strikt On ein besseres Arbeiten (ich meine bei allen Prog's nehmen) ?? -
-
Svenson schrieb:
p.s Ist mit Option Strikt On ein besseres Arbeiten
Geh in Deinem Studio auf Extras -> Optionen ->VB-Standard, da kannst Du Einstellungen für alle neuen Projekte vornehmen.
Alte musst Du von Hand umstellen.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
So, ich bin jetzt mal durch. Geht aber immer noch nicht
Folgendes, wenn ich die LB wechsel dann birngt er den Fehler:
Für die Zeile/Spalte sind keine Daten vorhanden. In liste = CBool(reader("Reparatur")) obwohl wenn ich auf
liste gehe sie den WERT False hat. Weiter ist auftrag = CStr(LB_KVA.SelectedItem) Nothing .
VB.NET-Quellcode
- Private Sub KVA_(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LB_KVA.SelectedIndexChanged
- CBMitarbeiter.Text = "" : tbDatum_AT.Text = "" : tbStunden_AT.Text = ""
- LB_Arbeitstag.Items.Clear() : LB_Arbeitszeit.Items.Clear() : rtb_Bemerkung_AT.Text = ""
- LB_Reparatur.SelectedIndex = ListBox.NoMatches
- LB_Garantie.SelectedIndex = ListBox.NoMatches
- LB_Kulanz.SelectedIndex = ListBox.NoMatches
- auftrag = CStr(LB_KVA.SelectedItem)
- con1.Open()
- cmd1.CommandText = "SELECT * FROM Reparaturauftrag WHERE Auftragsnummer='" & auftrag & "'"
- reader = cmd1.ExecuteReader()
- reader.Read()
- liste = CBool(reader("Reparatur"))
- If liste = True Then
- GBox_Auftrag.Text = " Reparatur " & auftrag & " "
- auftragart = "Reparatur"
- End If
-
-
Svenson schrieb:
LB_KVA.SelectedItemFalls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
Mach mal bitte keine Codezeilen mit Doppelpunkt, das lässt sich schlecht lesen.
Du hast doch gerade gesagt, dass nix selektiert ist.
Da musst Du Dich nicht wundern, dass dann unten nix ankommt.
---------------------------
Funktioniert Dein Code, wenn Du nichts entselektierst?Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
ich denke ja, der CommandText ist falsch zusammengefrickelt.
DbParameter verwenden -
-
Da hast Du doch jetzt einen konkreten Anhaltspunkt.
Einfügen - testen - woanders einfügen - testen - verwerfen.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert!
-
5 Benutzer haben hier geschrieben
- Svenson (8)
- RodFromGermany (8)
- ErfinderDesRades (2)
- fichz (1)
- Gast (1)