求助,求助,求助 pb

没有系统错误,就是运行到-----我分段的那个地方的时候出错,请指教..(错误的信息是那个附件)


//显示特定会员和图书的借阅记录
//显示特定会员和图书的借阅记录
dw_1.settransobject(sqlca)
dw_1.setfilter("会员编号='"+trim(sle_1.text)+"'")
dw_1.retrieve()
dw_2.settransobject(sqlca)
dw_2.setfilter("会员编号='"+trim(sle_1.text)+"' and 图书编号='"+trim(sle_2.text)+"'")
dw_2.retrieve()
dw_3.settransobject(sqlca)
dw_3.setfilter("图书编号='"+trim(sle_2.text)+"'" )
dw_3.retrieve()
//得到记录的总行书
int m,n,i
//得到借书记录总行数和图书当前行号

if dw_1.retrieve()=1 and dw_3.retrieve()=1 then
i=dw_1.getrow()
m=dw_2.rowcount()
n=dw_3.getrow()
//下面就出错了
//下面就出错了下面就出错了下面就出错了下面就出错了下面就出错了




if dw_3.object.库存[n]>0 and dw_1.object.锁定[i]="否" then
//插入借书记录
dw_2.insertrow(m+1)
dw_2.scrolltorow(m+1)
dw_2.object.会员编号[m+1]=sle_1.text
dw_2.object.图书编号[m+1]=sle_2.text
dw_2.object.借书日期[m+1]=string(today())
dw_2.object.还书日期[m+1]=string(today())
dw_2.object.备注[m+1]= "未归还"
//库存减1
dw_3.object.库存[n]=dw_3.object.库存[n]-1
//更新数据库

if dw_2.update()=1 and dw_3.update()=1 then
commit;
messagebox("成功！","更新数据库成功！")
else
rollback;
messagebox("失败！","更新数据库失败！")
end if

else
//提示用户不能借书的原因
messagebox("错误！","库存不足或您的卡号被锁定，会员或图书不存在,无法借阅！",exclamation!,ok!,2)
end if
end if

[此贴子已经被作者于2006-12-1 10:35:39编辑过]