Hallo,
habe nun schon einige Stunden damit vertan, Listview (Details) oder Datagridview spaltenweise zu füllen.
Datenbindung nicht notwendig, da nur eine Anzeige - ohne Bearbeitung.
Meine frage, gibt's ein Control das man spaltenweise ohne Umwege füllen kann?
Versuche eine Art Kalender zu "bauen" - Spalten: Montag, Dienstag, Mittwoch ... usw.
Einteilung in Zeit nicht nötig.
Anbei Bild... wie es im Moment aussieht, immerhin ... aber die Zeileneinteilung ist ned der Brüller
Hier mal der Code - den ich erst mal nur zum testen so geschrieben hab...
Hab Ihr ne bessere Idee ?
Oder einen Tipp ?
Vorab danke und viele Grüße
Michl
habe nun schon einige Stunden damit vertan, Listview (Details) oder Datagridview spaltenweise zu füllen.
Datenbindung nicht notwendig, da nur eine Anzeige - ohne Bearbeitung.
Meine frage, gibt's ein Control das man spaltenweise ohne Umwege füllen kann?
Versuche eine Art Kalender zu "bauen" - Spalten: Montag, Dienstag, Mittwoch ... usw.
Einteilung in Zeit nicht nötig.
Anbei Bild... wie es im Moment aussieht, immerhin ... aber die Zeileneinteilung ist ned der Brüller
Hier mal der Code - den ich erst mal nur zum testen so geschrieben hab...
VB.NET-Quellcode
- Private Sub AddItem()
- Dim _dAnz As Integer = Termine_offeneTerminListeDataGridView.Rows.Count
- Dim v As Integer = 1
- For i As Integer = 0 To _dAnz - 1 'Step 7
- If v <> DateToWeek(Termine_offeneTerminListeDataGridView.Rows(i).Cells(4).Value) Then
- v = DateToWeek(Termine_offeneTerminListeDataGridView.Rows(i).Cells(4).Value)
- DataGridView1.Rows.Add("KW: " & v.ToString.Substring(4, 2))
- End If
- Select Case CDate(Termine_offeneTerminListeDataGridView.Rows(i).Cells(4).Value).DayOfWeek
- Case 0
- DataGridView1.Rows.Add("", "", "", "", "", "", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 1
- DataGridView1.Rows.Add("", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 2
- DataGridView1.Rows.Add("", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 3
- DataGridView1.Rows.Add("", "", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 4
- DataGridView1.Rows.Add("", "", "", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 5
- DataGridView1.Rows.Add("", "", "", "", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- Case 6
- DataGridView1.Rows.Add("", "", "", "", "", "", Termine_offeneTerminListeDataGridView.Rows(i).Cells(12).Value)
- End Select
- Next
- ' Formatieren
- For y As Integer = 0 To DataGridView1.Rows.Count - 1
- If DataGridView1.Rows(y).Cells(0).Value > "" Then
- DataGridView1.Rows(y).DefaultCellStyle.BackColor = Color.Gray
- DataGridView1.Rows(y).DefaultCellStyle.ForeColor = Color.White
- End If
- Next
- End Sub
Hab Ihr ne bessere Idee ?
Oder einen Tipp ?
Vorab danke und viele Grüße
Michl