pb中出现的coo31：syntax error（附代码）？解决思路
pb中出现的coo31：syntax error（附代码）？？？？？？
------解决方案--------------------
------解决方案--------------------
頂樓上.
少了end if 的問題，樓主有點粗枝大葉了。
本帖最后由 lijingpengchina 于 2010-12-05 18:05:26 编辑
String num,name
String rrnum,rrname,rrsex,rrage,rrdno
num=snum.Text
name=sname.Text
int n,msg
if cbx_1.checked=TRUE then
else
if len(num)=0 and len(name)=0 then
messagebox("ERROR","请输入要查询的条件！")
else
num="%"+num+"%"
declare q_num cursor for
select sno,sname,sex,age,dno
from s
where sno like:num;
open q_num;
n=0
do while TRUE
fetch q_num into:rrnum,:rrname,:rrsex,:rrage,:rrdno;
if SQLCA.SQLCode=100 then
if n=0 then
messagebox("结果","没有符合条件的记录！")
else
messagebox("结果","符合条件的记录已经显示完毕！")
end if
exit
end if
rsno.Text=rrnum
rname.Text=rrname
rsex.Text=rrsex
rage.Text=rrage
rdno.Text=rrdno
n=n+1
messagebox("查询","这是第"+string(n)+"条符合条件的记录！")
msg=messagebox("查询","继续显示符合条件的记录么？",Question!,YesNo!,1)
if msg=2 then
exit
end if
loop
close q_num;
end if
------解决方案--------------------
String num,name
String rrnum,rrname,rrsex,rrage,rrdno
num=snum.Text
name=sname.Text
int n,msg
if cbx_1.checked=TRUE then
else
if len(num)=0 and len(name)=0 then
messagebox("ERROR","请输入要查询的条件！")
else
num="%"+num+"%"
declare q_num cursor for
select sno,sname,sex,age,dno
from s
where sno like:num;
open q_num;
n=0
do while TRUE
fetch q_num into:rrnum,:rrname,:rrsex,:rrage,:rrdno;
if SQLCA.SQLCode=100 then
if n=0 then
messagebox("结果","没有符合条件的记录！")
else
messagebox("结果","符合条件的记录已经显示完毕！")
end if
exit
end if
rsno.Text=rrnum
rname.Text=rrname
rsex.Text=rrsex
rage.Text=rrage
rdno.Text=rrdno
n=n+1
messagebox("查询","这是第"+string(n)+"条符合条件的记录！")
msg=messagebox("查询","继续显示符合条件的记录么？",Question!,YesNo!,1)
if msg=2 then
exit
end if
loop
close q_num;
end if //这里好像是少了个end if
end if
------解决方案--------------------
頂樓上.
少了end if 的問題，樓主有點粗枝大葉了。