一定要记住解决过了的问题

来源：互联网发布：xml解析 java 编辑：程序博客网时间：2024/04/29 18:02

//提交数据库的click()事件
connect;
dec maxdia = 1,myRecord //一定要定义大一点
myRecord = dec(sle_1.text)//这样转才不会有出界的问题(这次全因为integer出界，费了那么多时间)
datetime myDate
string d,t
d = ddlb_1.text + ddlb_2.text + ddlb_3.text
t = sle_3.text + sle_7.text
myDate = datetime(date(d),time(t))//这么转换显得真是专业
if ddlb_1.text<>"" and ddlb_2.text<>"" and ddlb_3.text<>"" and mle_1.text<>"" and sle_1.text<>"" then

select Maxdiagnosis# into :maxdia from SysVariable;
maxdia = maxdia + 1
update SysVariable set Maxdiagnosis#=:maxdia;
messagebox("",maxdia)//这算是PB的一种经典查错方法，打印要追踪的变量值
messagebox("",myRecord)
//messagebox("",myDate)//datetime类型不支持
messagebox("",gUserID)
messagebox("",mle_1.text)

insert into diagnosis values (:maxdia,:myRecord,:myDate,:gUserID,:mle_1.text);
//这句话写得无可挑剔，却不幸长期被我视为嫌疑最大的嫌疑犯
end if
//insert into diagnosis values (1000000008,1000000001,:myDate,1020310301,"mle_1.text");
//这也是测试的一个方法，直接写
if sqlca.sqlcode<>0 then
messagebox("",sqlca.sqlerrtext)//输出错误，准确地指出了Record#的错误，功劳不小
end if