请教一下pb中给sql 游标动态命名的问题

[selila]

我是在pb里面写的代码
我想问下能不能在一个for循环中。动态的为游标命名象这样zcode1,zcode2,zcode3

for i = 1 to 3
count=0
count=count+1
cursorcode="zcode"+string(count)
declare :cursorcode cursor for
SELECT a from tabe;
open :cursorcode;
next

大概就是类似上面代码的那样。我想问问怎么样才能实现这种功能

[10975037]

动态游标，游标的名字就是动态的你要做什么，什么意思？
-----------------------------------------------
给你一段代码：
sqlca.autocommit=true
string czy100
string ll
ll=sle_1.text
declare cursor1 cursor for select distinct username from mima where username=:ll;
open cursor1;
fetch cursor1 into :czy100; //是把czy100的内容放入cursor1中
do while sqlca.sqlcode=0 //这是循环语句
integer li_rtn
li_rtn = CreateDirectory ('c:\'+czy100)
If li_rtn = 1 Then
MessageBox('提示信息',+'c:\'+czy100 + '目录创建成功！')


Else
MessageBox('提示信息',+'c:\'+czy100 + '目录创建失败！')
End if
fetch cursor1 into :czy100; //是把czy100的内容放入cursor1中，这时cursor1是下一条记录的值
loop
close cursor1;
sqlca.autocommit=false

[selila]

我想要动态的为游标命名。

在一个for i=1 to 3的语句中
只有一段定义游标的代码。循环结束后定义zcode1,zcode2,zcode3三个游标