ComboBox abhängig von ComboBox

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von Angarius.

    Ich habe das ohne IDE geschrieben.
    Daher können dort Fehler drin sein.

    Wenn du auf deine Controls einen Doppelklick machst werden die Events richtig eingeblendet.
    Wenn du im Code bist und ds abschreibst, zeigt dir der Intelisence die richtige Anweisung.

    also nicht einfach Kopieren bitte.

    ComboBoxen

    Gibt es denn eine Möglichkeit, eine Datenbank in VB 2008 zu erstellen, die zum Beispiel die Standorte (Musterhausen, Musterberg) und die dazugehörigen Abteilungen (Musterhausen = Rechnung und Kundenbetreuung) (Musterberg = Personal und Geschäftsführung) sowie die entsprechenden Teamleiter (Rechnung = Willy Lustig) (Kundenbetreuung = Hans Peter) (Personal = Schlumpf) (Geschäftsführung = Boss) beinhalten?

    Ich müsste dann einmal in Erfahrung bringen, wie ich eine Datenbank erstelle (Step by Step) und dann diese Werte auch auf meine Form ziehen kann..... oder wie auch immer das geht ;)

    Ich weiß wirklich nicht was CSV oder XML ist, ich habe wirklich erst vor 2 Wochen mit VB2008 angefangen, möchte halt mal schauen, was man damit so anstellen kann und teste mich halt durch einige Funktionen, die man gut einbinden kann.

    Das belesen irgendwelcher IT-Seiten hilft mir dabei gar nicht, eher die Praxis! ;)

    Hallo.

    Ich weis, dieser Thread ist schon etwas älter.
    Hoffe dennoch um hilfe.

    Ich habe folgenden Code:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim ComboBox7_Liste As List(Of String) = New List(Of String)
    4. Dim ComboBox7_Liste_II As List(Of String) = New List(Of String)
    5. Dim ComboBox7_Liste_III As List(Of String) = New List(Of String)
    6. Dim ComboBox7_Liste_IV As List(Of String) = New List(Of String)
    7. Dim ComboBox7_Liste_V As List(Of String) = New List(Of String)
    8. Dim ComboBox7_Liste_VI As List(Of String) = New List(Of String)
    9. Dim ComboBox7_Liste_VII As List(Of String) = New List(Of String)
    11. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
    12. ComboBox7.Items.Clear()
    13. If ComboBox2.SelectedIndex = 0 Then
    14. 'ComboBox7.Items.Clear()
    15. ComboBox7.Items.AddRange(ComboBox7_Liste_VII.ToArray)
    16. End If
    17. If ComboBox2.SelectedIndex = 1 Then
    18. 'ComboBox7.Items.Clear()
    19. ComboBox7.Items.AddRange(ComboBox7_Liste.ToArray)
    20. End If
    21. If ComboBox2.SelectedIndex = 2 Then
    22. 'ComboBox7.Items.Clear()
    23. ComboBox7.Items.AddRange(ComboBox7_Liste_II.ToArray)
    24. End If
    25. If ComboBox2.SelectedIndex = 3 Then
    26. 'ComboBox7.Items.Clear()
    27. ComboBox7.Items.AddRange(ComboBox7_Liste_III.ToArray)
    28. End If
    29. If ComboBox2.SelectedIndex = 4 Then
    30. 'ComboBox7.Items.Clear()
    31. ComboBox7.Items.AddRange(ComboBox7_Liste_IV.ToArray)
    32. End If
    33. If ComboBox2.SelectedIndex = 5 Then
    34. 'ComboBox7.Items.Clear()
    35. ComboBox7.Items.AddRange(ComboBox7_Liste_V.ToArray)
    36. End If
    37. If ComboBox2.SelectedIndex = 6 Then
    38. 'ComboBox7.Items.Clear()
    39. ComboBox7.Items.AddRange(ComboBox7_Liste_VI.ToArray)
    40. End If
    41. End Sub
    43. Private Sub Tabelle1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabelle1BindingNavigatorSaveItem.Click
    44. Button1.PerformClick()
    45. Label7.Visible = False
    46. Label6.Visible = True
    47. Me.Validate()
    48. Me.Tabelle1BindingSource.EndEdit()
    49. Me.TableAdapterManager.UpdateAll(Me.Huber_schnittwerte_datenbankDataSet)
    50. End Sub
    52. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    53. Timer1.Start()
    54. Label6.Visible = False
    55. Label7.Visible = False
    56. ' ############################################
    57. ' Listeneinträge für Material - Untergruppe
    58. ' ############################################
    60. ' Liste für 1. (P) Stahl < 1400N
    61. ComboBox7_Liste.Add("< 750N")
    62. ComboBox7_Liste.Add("< 900N")
    63. ComboBox7_Liste.Add("< 1100N")
    64. ComboBox7_Liste.Add("< 1400N")
    65. ' Liste für 2. (N) Nichteisen
    66. ComboBox7_Liste_II.Add("Kunststoffe")
    67. ComboBox7_Liste_II.Add("Alu")
    68. ComboBox7_Liste_II.Add("Alu Guss > 10%")
    69. ComboBox7_Liste_II.Add("CuZn")
    70. ComboBox7_Liste_II.Add("Graphit")
    71. ComboBox7_Liste_II.Add("GFK")
    72. ComboBox7_Liste_II.Add("CFK")
    73. ' Liste für 3. (H) Hart > 55Hrc
    74. ComboBox7_Liste_III.Add("Hart > 55Hrc")
    75. ComboBox7_Liste_III.Add("Hart > 60Hrc")
    76. ComboBox7_Liste_III.Add("Hart > 67Hrc")
    77. ' Liste für 4. (M) Inox
    78. ComboBox7_Liste_IV.Add("Inox < 900N")
    79. ComboBox7_Liste_IV.Add("Inox > 900N")
    80. ' Liste für 5. (S) Sonderlegierungen
    81. ComboBox7_Liste_V.Add("Titan > 850N")
    82. ' Liste für 6. (K) Guss / Grauguss
    83. ComboBox7_Liste_VI.Add("Guss")
    84. ComboBox7_Liste_VI.Add("Grauguss")
    85. ' Liste für 0. Keine Hauptgruppe
    86. ComboBox7_Liste_VII.Add("")
    87. ' ############################################
    88. ' Listeneinträge für Material - Hauptgruppe
    89. ' ############################################
    90. ' Hauptauswahl für Combobox2 setzen
    91. ComboBox2.Items.Add("0. Keine Hauptgruppe")
    92. ComboBox2.Items.Add("1. (P) Stahl < 1400N")
    93. ComboBox2.Items.Add("2. (N) Nichteisen")
    94. ComboBox2.Items.Add("3. (H) Hart > 55Hrc")
    95. ComboBox2.Items.Add("4. (M) Inox")
    96. ComboBox2.Items.Add("5. (S) Sonderlegierungen")
    97. ComboBox2.Items.Add("6. (K) Guss / Grauguss")
    98. 'TODO: Diese Codezeile lädt Daten in die Tabelle "Huber_schnittwerte_datenbankDataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder entfernen.
    99. Me.Tabelle1TableAdapter.Fill(Me.Huber_schnittwerte_datenbankDataSet.Tabelle1)
    100. End Sub


    Wenn ich jetzt in Datagridview einen neuen Eintrag erstelle und hier als Hauptgruppe: 2. (N) Nichteisen... verwende und als Untergruppe: Kunststoffe wähle und speichere und ich dann auf eine andere Zeile klicke, löscht er mit die Untergruppe raus.
    Wie kann ich es denn machen, dass dieser Wert, welcher in der Untergruppe stand auch weiterhin vorhanden bleibt?

    Vielen Dank im Voraus.

    Angarius

Facebook