保存问题~~~谢谢~~~

[wang131425]

sle_1.enabled = false
sle_2.enabled = false
sle_3.enabled = false
em_1.enabled = false
sle_5.enabled = false
sle_4.enabled = false
sle_7.enabled = false
sle_6.enabled = false
ddlb_1.enabled = false
string ab,ac,aa,ty,uy,iy
integer kui,kum
decimal yy
ty = trim(sle_3.text)
kui = integer(sle_4.text)
kum = integer(sle_7.text)
uy = trim(sle_5.text)
iy = trim(sle_6.text)
yy = dec(em_1.text)
aa = trim(sle_1.text)
ab = trim(sle_2.text)
ac = ddlb_1.text
if aa="" and ac="" and isnull(kui) and isnull(kum) then
messagebox('消息',"不允许为空~n~r请重新输入")
sle_2.setfocus()
else
if sqlca.sqlcode<>0 then
messagebox('消息',"数据库末连接")
rollback;
else
insert into bcc(code,high,low) values(:aa,:kum,:kui);
insert cbm values(:aa,:ab,:ac,:ty,:yy,:uy,:iy);
messagebox('消息',"成功新增")
sle_1.text=""
sle_2.text=""
ddlb_1.text=""
commit;
end if
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()
编辑时通过。保存时通过。但二个insert只有第二个实现插入到数据库中。第一个没起到作用。就是到表是去也没看到增加到里面去。请各位大虾看看是哪里出的问题。谢谢
类型我也调对了。

[sywen]

肯定是插入表 bcc的記錄的某個字段不允許為null,而你插入的該字段值為null.

[wang131425]

有道理~~~

[wang131425]

谢谢这位老兄~~~。结贴去

[sun1976]

if aa="" and ac="" and isnull(kui) and isnull(kum) then
messagebox('消息',"不允许为空~n~r请重新输入")
sle_2.setfocus()
else
if sqlca.sqlcode<>0 then
messagebox('消息',"数据库末连接")
rollback;
else
insert into bcc(code,high,low) values(:aa,:kum,:kui);
if sqlca.sqlcode=0 then
insert cbm values(:aa,:ab,:ac,:ty,:yy,:uy,:iy);
end if
if sqlca.sqlcode=0 then
messagebox('消息',"成功新增")
sle_1.text=""
sle_2.text=""
ddlb_1.text=""

commit;
else
messagebox('',string(sqlca.sqlcode)+':~r~n'+sqlca.sqlerrtext)
end if
end if
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()

[sun1976]

if aa="" and ac="" and isnull(kui) and isnull(kum) then
messagebox('消息',"不允许为空~n~r请重新输入")
sle_2.setfocus()
else
if sqlca.sqlcode<>0 then
messagebox('消息',"数据库末连接")
rollback;
else
insert into bcc(code,high,low) values(:aa,:kum,:kui);
if sqlca.sqlcode=0 then
insert cbm values(:aa,:ab,:ac,:ty,:yy,:uy,:iy);
end if
if sqlca.sqlcode=0 then
messagebox('消息',"成功新增")
sle_1.text=""
sle_2.text=""
ddlb_1.text=""

commit;
else
messagebox('',string(sqlca.sqlcode)+':~r~n'+sqlca.sqlerrtext)
rollback;
end if
end if
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()