这个错误确实存在,代码如下:
cBz:=edit1.Text;
Query_update.Close;
Query_update.Sql.Clear;
Query_update.Sql.Text:='Insert Into data/xnjg.db (bh,mc,bz) Values
fBh,:fMc,:fBz)';
Query_update.ParamByName('fBh').AsString:=Edit_jgbh.Text;
Query_update.ParamByName('fmc').AsString:=Edit_jgmc.Text;
Query_update.ParamByName('fbz').AsString:=cBz;
If Not Query_update.Prepared then
Query_update.Prepare;
Query_update.ExecSql;
Query_update.Close;
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Text:='select * from data/xnjg.db';
Query1.Open;
Query1.Locate('bz',cBz,[]);
这里我用一个datasource和dbgrid显示Query1的结果,如果我用DBNavigator移动记录,一切正常,
用鼠标单击dbgrid的垂直滚动条的上下箭头也正常,但是当我拖住dbgrid的垂直滚动条的
滑块直到最后记录时,出现错误信息,而且可以发现最后一条记录并不显示,但只要在dbgrid上点击一下
一切又都正常了。为什么?