Es wird ein Array mit 3 Elementen übergeben, mit dem die Tabelle (zum Test nur die erste Spalte)
gefüllt werden soll.
Dafür habe ich folgenden Code:
Code: Alles auswählen
nBMCount := oBM:Count()
nAnzTables := oDoc:tables:count
if nAnzTables > 0 .and. nAnzElemente > 0
oTable := oDoc:tables(1)
msgbox(ValType(oTable))
msgbox(str(oTable:rows:count())+str(oTable:columns:count()))
// Hier z.B. fuer ganze Tabelle
// oTable:Range:Font:Bold := .t.
// msgbox("huhu: "+str(nAnzTables,2))
for i:=1 to nAnzElemente
if i > 2
oTable:rows:add(i-1)
endif
oCell := oTable:Cell(i,1):range
msgbox("oCell ist: "+ValType(oCell))
oCell:Font:Bold := .t.
oCell:Font:Size := 8
oCell:text := aArray[i,1]
msgbox("oCell ist: "+ValType(oCell))
oCell := oTable:Cell(i,2):range
oCell:range:text := "TEST"
oCell := oTable:Cell(i,3):range
oCell:text := aArray[i,3]
next
endif
Was mache ich falsch, finde den Fehler nicht.