________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        Dim Daten As New DataTable
        Dim test As String = "select * from Stempelzeit where User_id=1"
        DGV.AutoGenerateColumns = True
 
        Daten = ReadDataTable01(Daten, test)
 
        DGV.DataSource = Daten
 
        Dim CityComboColumn As New DataGridViewComboBoxColumn
        CityComboColumn.HeaderText = "info"
        CityComboColumn.DataPropertyName = "info"
        CityComboColumn.DisplayIndex = 5
 
        DGV.Columns.RemoveAt(4)
        DGV.Columns.Add(CityComboColumn)
        Dim test1 As String = "test"
 
        For i = 0 To DGV.Rows.Count
            test1 = DGV.Rows.Item(i).Cells(4).Value.ToString
            If Not CityComboColumn.Items.Contains(test1) Then
                CityComboColumn.Items.Add(test1)
            End If
        Next

For i = 0 To DGV.Rows.Count - 2
 If DGV.Rows(i).Cells(5).Value.ToString = "1" Then
  'Zeile 4
  CityComboColumn.DefaultCellStyle.NullValue = "Test"
 End If
Next

    Dim Datenbankpfad As String = "Zeiterfassung_2.sqlite"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim Daten As New DataTable
        Dim sDaten As String = "select * from Stempelzeit where User_id=2"
 
        DGV.AutoGenerateColumns = True
        Daten = ReadDataTable01(Daten, sDaten)
        DGV.DataSource = Daten
 
        Dim CityComboColumn As New DataGridViewComboBoxColumn()
        CityComboColumn.HeaderText = "info"
        CityComboColumn.DataPropertyName = "info"
        CityComboColumn.DisplayIndex = 5
 
        Dim infos As New List(Of Object)
 
        For Each dr As DataRow In Daten.Rows
            Dim val As Object = dr("info")
            If Not infos.Contains(val) Then
                infos.Add(val)
            End If
        Next
 
        CityComboColumn.DataSource = infos
 
        DGV.Columns.RemoveAt(5)
        DGV.Columns.Add(CityComboColumn)
 
    End Sub
 
    Public Function ReadDataTable01(ByVal dt As DataTable, ByVal SelectString _
      As String) As DataTable
        Dim ConnectionString As String = "Data Source=" & Datenbankpfad & ";"
        Try
            Dim da As New SQLite.SQLiteDataAdapter(SelectString, _
              ConnectionString)
            da.Fill(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein " & _
              "Fehler aufgetreten.")
        End Try
        Return dt
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Dim Datenbankpfad As String = "Zeiterfassung_2.sqlite"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim userid As Integer = 2
 
        Dim Daten As New DataTable("Daten")
        Dim Abwesenheit As New DataTable("Abwesenheit")
        Dim sDaten As String = "select * from Stempelzeit where User_id=?"
        Dim sAbwesenheit As String = "select * from Abwesenheit"
 
        DGV.AutoGenerateColumns = True
        ReadDataTable01(Daten, sDaten, userid)
        ReadDataTable01(Abwesenheit, sAbwesenheit, Nothing)
        DGV.DataSource = Daten
 
        Dim InfoComboColumn As New DataGridViewComboBoxColumn()
        InfoComboColumn.HeaderText = "info"
        InfoComboColumn.DataPropertyName = "info"
        InfoComboColumn.DisplayMember = "Info"
        InfoComboColumn.ValueMember = "Abwesenheit_id"
        InfoComboColumn.DisplayIndex = 5
 
        InfoComboColumn.DataSource = Abwesenheit
 
        DGV.Columns.RemoveAt(5)
        DGV.Columns.Add(InfoComboColumn)
 
    End Sub
 
    Public Sub ReadDataTable01(ByVal dt As DataTable, ByVal SelectString As _
      String, param As Object)
        Dim ConnectionString As String = "Data Source=" & Datenbankpfad & ";"
        Try
            Dim da As New SQLite.SQLiteDataAdapter(SelectString, _
              ConnectionString)
            If param IsNot Nothing Then
                da.SelectCommand.Parameters.AddWithValue("P1", param)
            End If
            da.Fill(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Beim Öffnen der Datenbank ist ein" & _
              "Fehler" & _
              "aufgetreten.")
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist