Hi,
ich habe diese Funktion hier:
Damit fülle ich ausgang auf, alles funktioniert bestens. SearchVatCode gibt diesen Structure zurück:
und ic habe das hier:
In der Zeile Debug.Print werden die Werte ausgegeben, die ich erwarten.
Wenn ich aber diese Zeile unter der do while platziere, dann bekomme ich nur leere Werte. Ich habe keine Ahnung, was hier los ist.
Vielleicht hat hier jemand eine Idee?
danke
ich habe diese Funktion hier:
Damit fülle ich ausgang auf, alles funktioniert bestens. SearchVatCode gibt diesen Structure zurück:
und ic habe das hier:
Quellcode
- Dim i As Integer = 9
- Dim j As Integer = 9
- For m = 0 To ausgang.Count - 1
- frmMain.lblBelfprogress.Text = ausgang(m).bez & " - " & ausgang(m).vatcode
- Debug.Print(ausgang(m).vatcode)
- Do While ws.Cells(j, 2).Text <> "**"
- Application.DoEvents()
- Do While Not ws.Cells(i, 14).Text = ""
- If ws.Cells(i, 22).Text = ausgang(m).vatcodeThen
- drSor = dsAfabevallas.Tables(0).NewRow
- drSor(0) = ws.Cells(i, 15).Text
- drSor(1) = ws.Cells(i, 22).Text
- drSor(2) = Math.Round(GetNumber(ws.Cells(i, 33).Text), 0)
- drSor(3) = Math.Round(GetNumber(ws.Cells(i, 34).Text), 0)
- drSor(4) = ws.Cells(i, 37).Text.ToString.Substring(0, 8)
- drSor(5) = ReverseDate(ws.Cells(i, 11).Text).ToShortDateString
- drSor(6) = ws.Cells(i, 36).Text
- drSor(7) = ws.Cells(i, 39).Text
- drSor(8) = ws.Cells(i, 19).Text
- dsAfabevallas.Tables(0).Rows.Add(drSor)
- End If
- i = i + 1
- j = j + 1
- frmMain.pbBelfprogress.Position = i
- If frmMain.pbBelfprogress.Position > 0 Then frmMain.pbBelfprogress.Position = frmMain.pbBelfprogress.Position - 1
- Loop
- 'sum sor
- If Not ws.Cells(i, 33).Text = "" Then
- i = i + 2
- j = j + 2
- frmMain.pbBelfprogress.Position = i
- If frmMain.pbBelfprogress.Position > 0 Then frmMain.pbBelfprogress.Position = frmMain.pbBelfprogress.Position - 1
- End If
- Loop
- Next
In der Zeile Debug.Print werden die Werte ausgegeben, die ich erwarten.
Wenn ich aber diese Zeile unter der do while platziere, dann bekomme ich nur leere Werte. Ich habe keine Ahnung, was hier los ist.
Vielleicht hat hier jemand eine Idee?
danke