Question

用PB实现添加记录功能

想用PB实现添加记录的功能，界面如图。自己尝试着写了代码，没有实现。有两处错误。
integer a
date b
string c
if sle_1.text="" or sle_2.text="" or sle_3.text="" then
messagebox("错误！","不能为空",exclamation!,ok!,2)
else
sle_1.text='a 'and sle_2.text='b' and sle_3.text='c' //错误
if rb_1.checked=True Then
insert into ru(ru_inday,ru_jine,ru_leixing) //错误
values('a','b','c')
end if
if rb_2.checked=True then
insert chu(chu_outday,chu_jine,chu_leixing)
values('a','b','c')
end if
if rb_1.checked=False and rb_2.checked=False then
messageox("错误！","不能为空",exclamation!,ok!2)
end if

是语句太荒谬吗？正确的是什么样的呢？请高手指点！！拜托啦！！
非常感谢。
还是不对啊 那两个错误是没了 又有别的错误了 是语句错误 是我语句写的不对吗？

Answer 1

你是刚开始学吧，别着急写代码，先把基础打一打，语法、逻辑什么的。下面是给你改好了的：

integer a
date b
string c
if sle_1.text="" or sle_2.text="" or sle_3.text="" then
messagebox("错误！","不能为空",exclamation!,ok!,2)
else
//sle_1.text='a 'and sle_2.text='b' and sle_3.text='c'//这句不知道你要干什么用，语法不通，所以给你屏蔽掉了。
if rb_1.checked=True Then
insert into ru(ru_inday,ru_jine,ru_leixing) values('a','b','c');
if sqlca.sqlcode<>0 then
rollback;
messagebox('','保存ru表出错！')
return
end if
end if
if rb_2.checked=True then
insert into chu(chu_outday,chu_jine,chu_leixing) values('a','b','c');
if sqlca.sqlcode<>0 then
rollback;
messagebox('','保存chu表出错！')
return
end if
end if
if rb_1.checked=False and rb_2.checked=False then
messagebox("错误！","不能为空",exclamation!,ok!,2)
end if
end if
commit;
messagebox('','保存成功！')

Answer 2

sle_1.text='a 'and sle_2.text='b' and sle_3.text='c' //错误
改: sle_1.text='a '
sle_2.text='b' and sle_3.text='c'
-----
insert into ru(ru_inday,ru_jine,ru_leixing) //错误
values('a','b','c')
改: insert into ru(ru_inday,ru_jine,ru_leixing) //错误
values('a','b','c');
--------
SQL语句后面要接分号

Answer 3

在PB遇到有有多条数据的应该优先选用数据窗口，其它的就不多说了