pb9.0脚本错误error coo31:syntax error怎么解决?

[lhran]

原代码如下，请帮忙检查下哪里语法有错，谢谢。
if sle_1.text=" " or sle_2.text= " " then //输入数据为空
messagebox("提示！","输入框不能为空!",exclamation!,ok!,2)
else
string cno
select cno into :cno from sc where sno= : sle_1.text and cno= : sle_2.text;
//查询该学生选修的课程数据在表sc中是否存在


if cno=sle_2.text then //学生已选修过课程
messagebox("提示!","您已经选过该课程!",exclamation!,ok!,2)
else //学生未选修过课程，可以插入数据
int number
select count(*) into : number from c where cno= : sle_2.text;
//查询选修的课程在表c中是否存在


if number=0 then //该课程不存在
messagebox("提示!","该课程不存在!",exclamation!,ok!,2)
else //该课程不存在，可以在表sc中插入数据
insert into sc (sno,cno,score)
values(: sle_1.text,: sle_2.text,null)
end if
end if
end if

sle_2.setfocus()

[jlwei888]

变量前的：有空格,一般sle_1.text等最好取到变量中！

[编程夜猫]

[Quote=引用 1 楼 jlwei888 的回复:]



变量前的：有空格,一般sle_1.text等最好取到变量中！

[/Quote]
正解

[AFIC]

no,空格是垃圾csdn自己加的，错误是
insert into sc (sno,cno,score)
values(: sle_1.text,: sle_2.text,null)
后边没有分号。

[sixty3]

string cno
select cno into :cno from sc where sno= : sle_1.text and cno= : sle_2.text;


变量定义不要与字段名一样

[lllyyymmm]

也没有提交事务，写得真别扭

[lhran]

[Quote=引用 3 楼 AFIC 的回复:]
no,空格是垃圾csdn自己加的，错误是
insert into sc (sno,cno,score)
values(: sle_1.text,: sle_2.text,null)
后边没有分号。
[/Quote]

3楼正解，谢谢。

[fenfazhe2]

这是一个求解二元一次方程的程序，有错误，哪位兄弟帮忙找一下

Decimal a,b,c
a = Dec(sle_1.text)
b = Dec(sle_2.text)
c = Dec(sle_3.text)

Decimal x1,x2
x1 = Dec(sle_4.text)
x2 = Dec(sle_5.text)

IF a <> 0 AND b^2 - 4*a*c >= 0//有两个解的情况
THEN x1 = (sqrt(b^2 - 4*a*c) - b) / (2*a) &
x2 = - (sqrt(b^2 - 4*a*c) + b) / (2*a)
ELSE IF a <> 0 AND b^2 - 4*a*c < 0//无解的情况
x1 = x2 = "无解"
ELSE IF a = 0 AND b <> 0
x1 = x2 = -c/b
ELSE IF a = 0 AND b = 0 AND c <> 0
x1 = x2 = "无解"
ELSE IF a = 0 AND b = 0 AND c = 0
x1 = x2 = "任意数"

[fenfazhe2]

上面是一个和窗口控件相关的PB9.0环境下写的程序