1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:
Allgemeine Kategorie Form1 Private Handgriffe MyBase.Load des Unterseeboot-Form1_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs) 'TODO: Diese Linie des Codes lädt Daten in die „Db2DataSet.Notes“ Tabelle. Sie können umziehen oder sie entfernen, wie gebraucht. Me.NotesTableAdapter.Fill (Me.Db2DataSet.Notes) Unterseeboot beenden Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click DataGridView1.Rows.Add (Db2DataSet.Tables (0). Rows.Count) Für i als ganze Zahl = 0 zu Db2DataSet.Tables (0). Rows.Count - 1 Für J als ganze Zahl = 0 zu Db2DataSet.Tables (0). Reihen (i).ItemArray (). Zählimpuls - 1 Wenn J <> 1 dann DataGridView1.Rows (i). Zellen (j). Wert = Db2DataSet.Tables (0). Reihen (i). Einzelteil (j) Sonst Schwaches c als DataGridViewComboBoxCell = neues DataGridViewComboBoxCell () Für jeden Rho als DataRow in Db2DataSet.Tables (0). Reihen c.Items.Add (Rho. Einzelteil (1)) Zunächst DataGridView1.Rows (i). Zellen (1) = c Beenden wenn Folgendes J Zunächst I Enden-Unterseeboot Enden-Kategorie