Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

MSHFlexGrid
Autor: Dicker
Datum: 04.06.05 14:07
Hallo Ich habe da ein Problem. Wo liegt hier der fehler. Ich versuche in einem MSHFlexgrid, nachdem ich es mit einem Recordset gefüllt habe. in die darauffolgenden Zeilen ein paar Eingabe einzufügen. Den aktuellen Zeilenindex hole ich mir mittels eine Schleife. Wenn ich nun versuche in die Felder zu schreiben bekomme ich folgenden Fehler: "Index ausserhalb des gültigen Bereiches" In dem Markierten Bereich beginnt der Fehler. Nur ich weiß nicht weiter. Laut Handbuch kann man mit MSHFlexGrid.TextMatrix(Zeile,Spalte) Text einfügen. Danke für Eure Hilfe Dicker Sub ladeArbeiter() Dim rs As ADODB.Recordset Dim itemString As String Dim TZ As String Dim Anzahlzeilen As Integer Dim wd As Integer Dim Monat As String Dim Jahe As String Dim summe As Integer Dim endsum As Integer Dim bedingung As String Dim idBaustelle As Variant Dim IdArbeiter As Variant Dim sql As String Dim laufindex As Integer laufindex = 1 TZ = vbTab summe = 0 Monat = Me.MComb.Text Jahr = Me.JahrComb.Text Anzahlzeilen = 1 itemString = "BAUID" & TZ & "Datum" & TZ & "Stunden" & TZ & "Stundenlohn" & TZ & "Gesamt" Fg4.Rows = 0 Fg4.AddItem itemString Set rs = New ADODB.Recordset IdArbeiter = ARBEITER_ID idBaustelle = BAUSTELLEN_ID sql = "SELECT * FROM ArbeitszeitView " & "WHERE (ArbeitszeitIDBaustelle = " & idBaustelle & ") AND " & "(ArbeitesZeitIDArbeiter = " & IdArbeiter & ") AND " & "(Year(Von) = " & Jahr & ") AND " & "(Month(Von) = " & Monat & ") " & "ORDER BY Von;" rs.Open sql, getConnection While Not rs.EOF itemString = "" itemString = rs("ZeitID").Value & TZ & _ rs("Von").Value & TZ & _ rs("Stunden").Value & TZ & _ rs("StundenLohn").Value & " € " & TZ & _ rs("Tageslohn").Value & " € " Fg4.AddItem itemString rs.MoveNext Anzahlzeilen = Anzahlzeilen + 1 laufindex = laufindex + 1 Wend rs.Close Fg4.Rows = Anzahlzeilen If Fg4.Rows > 1 Then Fg4.FixedRows = 1 End If sql = "SELECT * FROM ArbeitszeitView " & "WHERE (ArbeitszeitIDBaustelle = " & idBaustelle & ") AND " & "(ArbeitesZeitIDArbeiter = " & IdArbeiter & ") AND " & "(Year(Von) = " & Jahr & ") AND " & "(Month(Von) = " & Monat & ") " & "ORDER BY Von;" rs.Open sql, getConnection If Not rs.EOF Then summe = "" & rs("Tageslohn").Value endsum = summe + summe End If rs.Close laufindex = laufindex + 1 Dim su As Integer Dim ges As Integer ===Fg4.TextMatrix(laufindex, 4) = "Netto" Fg4.TextMatrix(laufindex, 5) = endsum laufindex = laufindex + 1 Fg4.TextMatrix(laufindex, 4) = "Mehrwertsteuer 16%" su = (endsum / 100) * 16 Fg4.TextMatrix(laufindex, 5) = su laufindex = laufindex + 1 Fg4.TextMatrix(laufindex, 4) = "Brutto" ges = su + endsum Fg4.TextMatrix(laufindex, 5) = ges End Sub

MSHFlexGrid	661	Dicker	04.06.05 14:07
Re: MSHFlexGrid	439	mst547	04.06.05 14:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen