帮帮忙吧！看看我这代码那不好了。。
DECLARE my_cursor CURSOR FOR
Select sysobjects.name
From sysobjects using sqlca;

OPEN my_cursor;
FETCH my_cursor INTO :name ;

ll=SQLCA.SQLCode
Do While SQLCA.SQLCode = 0
dw_1.insertrow(0)
dw_1.setitem( dw_1.getrow(),'name',name)
FETCH my_cursor INTO :name;
Loop
CLOSE my_cursor;

//运行时 ll = -1 ,不知道是哪里错了。


[解决办法]
应该是

Select sysobjects.name
From sysobjects using sqlca;

没有数据返回


[解决办法]
Select sysobjects.name
From sysobjects using sqlca;
执行失败
[解决办法]
DECLARE my_cursor CURSOR FOR
Select sysobjects.name
From sysobjects using sqlca;

OPEN my_cursor;
FETCH my_cursor INTO :name ;

ll=SQLCA.SQLCode
Do While SQLCA.SQLCode = 0
dw_1.insertrow(0)
dw_1.setitem( dw_1.getrow(),'name',name)
FETCH my_cursor INTO :name;
Loop
if SQLCA.SQLCode <>100 then
messagebox('',string(sqlca.sqlcode)+sqlca.sqlerrtext)
end if
CLOSE my_cursor;

//运行时 ll = -1 ,不知道是哪里错了。