May I write a function writecells() as below instead of the "test" even this done I found no exported method cells in writecells(nline,oSheet).
- Code: Select all Expand view
OleSetProperty( OleGetProperty( oSheet, "Cells", nLine, 1 ), "Value", writecells(nline,oSheet) )
..
function writecells(nline,oSheet)
*-------------------------------
select 3
use mach
3->(DBGOTOP())
DO WHILE !(3)->(EOF())
oSheet:Cells( nLine, 1 ):Value = (3)->mc_serial
oSheet:Cells( nLine, 2 ):Value = (3)->mc_name
nLine:=nLine+1
(3)->(DBSKIP(1))
ENDDO
return nil