Hi Axel,
hier ein Beispiel:
Set Doc = View.GetFirstDocument
Do until Doc is nothing
For i = 1 to 5
doc2.Feldx+(i) = Doc.Feld1
doc2.Feldy+(i) = Doc.Feld2
Next
Loop
Im uidoc geht das ja, hier ein Beipiel:
Set view = db.GetView( "vwKategoriegueltig" )
Set doc = view.GetFirstDocument
zaehler = 0
While Not ( doc Is Nothing ) And zaehler < 30
zaehler = zaehler + 1
Call source.fieldsettext("txtUmsatzKategorie_"+Left$(zaehler, 2),doc.txtKategorieBezeichnung(0))
Call source.fieldsettext("txtUmsatzKategorieBeschr_"+Left$(zaehler, 2),doc.txtKategorieBeschreibung(0))
Call source.fieldsettext("txtUmsatzKategorieEinheit_"+Left$(zaehler, 2),doc.diaKategorieEinheit(0))
Call source.fieldsettext("txtUmsatzKategorieUID_"+Left$(zaehler, 2),doc.txtKategorieUID(0))
Call source.fieldsettext("txtUmsatzKennzeichen_"+Left$(zaehler, 2),doc.optKategorieKennzeichen(0))
Set doc = view.GetNextDocument( doc )
Wend