各位帮忙看一下这段代码.

Question

//插入借阅记录
    datamain.adodataset1.active:=false;
    datamain.adodataset1.commandtext:='select max(br_id) from browreturn';
    datamain.adodataset1.active:=true;
    if datamain.ADODataSet1.Recordset.EOF  and datamain.ADODataSet1.Recordset.BOF  then
    browid:='000000000001'
    else
    begin
    browid:=vartostr(datamain.ADODataSet1.Recordset.Fields['br_id'].Value );
    browid:=inttostr(strtoint(browid)+1);
    showmessage(browid);
    end;
我想实现表browreturn中字段br_id char(12)自动加一..上面代码有什么问题??怎样修改啊?
错误提示为..在应用程序所要求的名称或序数集合中,ado找补到对象..出问题的行为
browid:=vartostr(datamain.ADODataSet1.Recordset.Fields['br_id'].Value );

Answer 1

browid:=vartostr(datamain.ADODataSet1.Fields['br_id'].Value );

Answer 2

datamain.adodataset1.commandtext:='select max(br_id) as br_id from browreturn';browid:=inttostr(datamain.ADODataSet1.Recordset.Fields['br_id'].Value );