Hallo,
ich lasse mir mit dem folgenden Code (sh. Spoiler) Daten aus einer Exceltabelle in ein Datagridview anzeigen und vergkleiche im Anschluss die Datumspalten jeder Zeile mit heute und färbe sie bei Übereinstimmung rot. Das funktioniert auch sehr gut.
Nur kommt mir immer ein:
mit dem Verweis auf diese Zeile:
Ich habe schon einiges probiert, auch eine "Sleep" Pause vor der Routine aber ich bekomme diese Meldung nicht weg. Kann mir da jemand evtl. einen Tipp geben?!
Danke
Spoiler anzeigen
ich lasse mir mit dem folgenden Code (sh. Spoiler) Daten aus einer Exceltabelle in ein Datagridview anzeigen und vergkleiche im Anschluss die Datumspalten jeder Zeile mit heute und färbe sie bei Übereinstimmung rot. Das funktioniert auch sehr gut.
Nur kommt mir immer ein:
mit dem Verweis auf diese Zeile:
Ich habe schon einiges probiert, auch eine "Sleep" Pause vor der Routine aber ich bekomme diese Meldung nicht weg. Kann mir da jemand evtl. einen Tipp geben?!
Danke
VB.NET-Quellcode
- Public Sub fill_termine_excel()
- 'Try
- Dim conn As OleDbConnection
- Dim dta As OleDbDataAdapter
- Dim dts As DataSet
- Dim excel As String = INI_Read("Settings", "filename_termine", INIDatei)
- conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=""Excel 12.0 Xml;IMEX=1"";")
- dta = New OleDbDataAdapter("select * from [Termine$]", conn)
- dts = New DataSet
- dta.Fill(dts, "[Termine$]")
- dgrid_termine.DataSource = dts
- dgrid_termine.DataMember = "[Termine$]"
- dgrid_termine.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
- dgrid_termine.ClearSelection()
- 'Termine in den Zeilen vergleichen und ggf. färben
- Dim datum_heute As String = Now.Date & " 00:00:00"
- For i = 0 To dgrid_termine.Rows.Count - 1
- 'MessageBox.Show("Heute: " & datum_heute & vbCrLf & "Zeile1: " & dgrid_termine.Rows(i).Cells(0).Value.ToString)
- If dgrid_termine.Rows(i).Cells(0).Value.ToString = datum_heute Then
- For Each Zelle As DataGridViewCell In dgrid_termine.Rows(i).Cells
- Zelle.Style.ForeColor = Color.Red
- Next
- End If
- Next
- 'Catch ex As Exception
- ' frm_main.lbl_stat_status.Text = "Fehler bei Terminen: " & ex.ToString
- 'End Try
- End Sub
==> seid .net zueinander <==