在PB窗体中插入数据显示“插入成功”但查询后没有数据

Question

string r_dept_code, r_date1,r_date2,r_sp_code
dec r_amount1,r_amount2,r_amount3
integer r_row,r_rowcount
r_row=dw_1.getrow()
r_rowcount=dw_1.rowcount()
for r_row=1 to r_rowcount

r_dept_code= dw_1.getitemstring(r_row,'dept_code')
r_date1= dw_1.getitemstring(r_row,'date1')
r_date2= dw_1.getitemstring(r_row,'date2')
r_sp_code=dw_1.getitemstring(r_row,'sp_code')
r_amount1=dw_1.getitemdecimal(r_row,'amount_1')
r_amount2=dw_1.getitemdecimal(r_row,'amount_2')
r_amount3=dw_1.getitemdecimal(r_row,'amount_3')
insert into sjfx_amount1 values (:r_dept_code,:r_date1,:r_date2,:r_sp_code,:r_amount1,:r_amount2,:r_amount3);
next
if g_trans1.sqlcode = 0 then
commit;
messagebox("提示","插入成功!")
else
messagebox("提示","插入错误，错误信息为"+string(g_trans1.sqlerrtext))
rollback;
end if
dw_2.update()
运行时显示“插入成功”但查询后没有数据

Answer 1

PB窗体中插入数据显示“插入成功”但查询后没有数据
string r_dept_code, r_date1,r_date2,r_sp_code
dec r_amount1,r_amount2,r_amount3
integer r_row,r_rowcount
r_row=dw_1.getrow()
r_rowcount=dw_1.rowcount()
for r_row=1 to r_rowcount

r_dept_code= dw_1.getitemstring(r_row,'dept_code')
r_date1= dw_1.getitemstring(r_row,'date1')
r_date2= dw_1.getitemstring(r_row,'date2')
r_sp_code=dw_1.getitemstring(r_row,'sp_code')
r_amount1=dw_1.getitemdecimal(r_row,'amount_1')
r_amount2=dw_1.getitemdecimal(r_row,'amount_2')
r_amount3=dw_1.getitemdecimal(r_row,'amount_3')