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


//显示特定会员和图书的借阅记录
//显示特定会员和图书的借阅记录
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编辑过]

没有看后面,前面你的setfilter后面加上retrieve,你根本就没有过滤,setfiler现在不起作用,retrieve换成dw.filter()

1. 如果能提供系统报错的内容, 解决问题会有针对性
2. 你的借书, 还书期应该是日期型吧 ,如果是就将
dw_2.object. 借书日期[m+1]=string(today())
dw_2.object. 还书日期[m+1]=string(today())
修改为 :
dw_2.object. 借书日期[m+1] = datetime (today())
dw_2.object.还书日期[m+1]= datetime (today())