Hallo Jungs,
habe ein Problem undzwar diese Meldung
anbei der code
die Datasetspalten sind alle auf System.String !!!! auch umstellen bringt nichts hab schon etliche Sachen probiert. Kann es sein, dass die .mdb einfach ultra verbuggt ist?
habe ein Problem undzwar diese Meldung
anbei der code
die Datasetspalten sind alle auf System.String !!!! auch umstellen bringt nichts hab schon etliche Sachen probiert. Kann es sein, dass die .mdb einfach ultra verbuggt ist?
VB.NET-Quellcode
- For i = 0 To Schicht1_Benutzer.RowCount - 1
- CellWert = Schicht1_Benutzer.Rows(i).Cells(TestSpalte).Value
- If CellWert = ln Then
- If IsDBNull(Schicht1_Benutzer.Rows(i).Cells(6).Value) Then
- Einsteller = CInt(0)
- End If
- If IsDBNull(Schicht1_Benutzer.Rows(i).Cells(5).Value) Then
- Mitarbeiter = CInt(0)
- End If
- If IsDBNull(Schicht1_Benutzer.Rows(i).Cells(3).Value) Then
- IstIO = CInt(0)
- End If
- If IsDBNull(Schicht1_Benutzer.Rows(i).Cells(4).Value) Then
- IstNIO = CInt(0)
- End If
- Einsteller += CInt(Schicht1_Benutzer.Rows(i).Cells(6).Value)
- Mitarbeiter += CInt(Schicht1_Benutzer.Rows(i).Cells(5).Value)
- IstIO += CInt(Schicht1_Benutzer.Rows(i).Cells(3).Value)
- IstNIO += CInt(Schicht1_Benutzer.Rows(i).Cells(4).Value)
- Soll += CInt(Schicht1_Benutzer.Rows(i).Cells(2).Value)
- t1 = INI_ReadValueFromFile(ln, "Soll_Zeile_Spätschicht", "", ".\cfg.ini")
- t2 = INI_ReadValueFromFile(ln, "Soll_Spalte_Spätschicht", "", ".\cfg.ini")
- t3 = INI_ReadValueFromFile(ln, "Mitarbeiter_Zeile_Spätschicht", "", ".\cfg.ini")
- t4 = INI_ReadValueFromFile(ln, "Mitarbeiter_Spalte_Spätschicht", "", ".\cfg.ini")
- t5 = INI_ReadValueFromFile(ln, "IstIO_Zeile_Spätschicht", "", ".\cfg.ini")
- t6 = INI_ReadValueFromFile(ln, "IstIO_Spalte_Spätschicht", "", ".\cfg.ini")
- t7 = INI_ReadValueFromFile(ln, "IstNIO_Zeile_Spätschicht", "", ".\cfg.ini")
- t8 = INI_ReadValueFromFile(ln, "IstNIO_Spalte_Spätschicht", "", ".\cfg.ini")
- t9 = INI_ReadValueFromFile(ln, "VorgabeEinsteller_Zeile_Spätschicht", "", ".\cfg.ini")
- t10 = INI_ReadValueFromFile(ln, "VorgabeEinsteller_Spalte_Spätschicht", "", ".\cfg.ini")
- t11 = INI_ReadValueFromFile(ln, "VorgabeMitarbeiter_Zeile_Spätschicht", "", ".\cfg.ini")
- t12 = INI_ReadValueFromFile(ln, "VorgabeMitarbeiter_Spalte_Spätschicht", "", ".\cfg.ini")
- t13 = INI_ReadValueFromFile(ln, "VorgabeIO_Zeile_Spätschicht", "", ".\cfg.ini")
- t14 = INI_ReadValueFromFile(ln, "VorgabeIO_Spalte_Spätschicht", "", ".\cfg.ini")
- Tabelle.Cells(t1, t2).Value = Schicht1_Benutzer.Rows(i).Cells(6).Value.ToString
- Tabelle.Cells(t3, t4).Value = Schicht1_Benutzer.Rows(i).Cells(5).Value
- Tabelle.Cells(t5, t6).Value = Schicht1_Benutzer.Rows(i).Cells(3).Value
- Tabelle.Cells(t7, t8).Value = Schicht1_Benutzer.Rows(i).Cells(4).Value
- Tabelle.Cells(t13, t14).Value = Schicht1_Benutzer.Rows(i).Cells(2).Value
- 'Tabelle.Cells(t11, t12).Value = Schicht1_Benutzer.Rows(i).Cells(2).Value
- 'Tabelle.Cells(t9, t10).Value = Sachnummern.Rows(i).Cells(1).Value
- 'Tabelle.Cells(t11, t12).Value = Sachnummern.Rows(i).Cells(4).Value
- 'Tabelle.Cells(t13, t14).Value = Sachnummern.Rows(i).Cells(2).Value
- Tabelle.Cells(t1, t2).Value = Einsteller
- Tabelle.Cells(t3, t4).Value = Mitarbeiter
- Tabelle.Cells(t5, t6).Value = IstIO
- Tabelle.Cells(t7, t8).Value = IstNIO
- Tabelle.Cells(t13, t14).Value = Soll
- 'Tabelle.Cells(t11, t12).Value = Soll
- End If
- Next
- End If