怪问题一个！

[码农天天向上]

我界面有一个DBGrid，下面有相应的DBText
程序的功能理应是：DBText随着DBGrid的游标显示相应的记录内容（比如我鼠标点第三条记录，下边的DBText显示第三条记录的相应内容）
但是，失败！
症状：点Navigator的话，要移动到五条记录之后或之前，DBText才刷新显示游标所在位置的记录内容，不然一直是先前游标位置的记录内容。
我后台是Oracle数据库
用的三层结构
请高手指点！

[qiujsh]

是否设置的多选或没有主键



------------------------
http://scsoft.agrie.com

[sxy_9761]

怪

[我和我的蓝天白云]

应该不会这样的，再检查一下相关属性设置

[才子鸣]

upq

[码农天天向上]

我发现是这个事件在作怪！不要下边得事件就运行良好，但是DBGrid里是显示得A或B。
大家觉得我这个事件有什么处理不得不好吗？请指教！


procedure Tfrmproportionquest.allDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var status:string;
begin
basedatamodule.rwlxdict.Active:=true;
basedatamodule.tcyszjhClientDataSet.edit;
status:=basedatamodule.tcyszjhClientDataSet.fieldbyname('任务类型').asstring;
if status='A' then
begin
basedatamodule.tcyszjhClientDataSet.FieldByName('任务类型').asstring:='计划任务';
end
else if status='B' then
begin
basedatamodule.tcyszjhClientDataSet.FieldByName('任务类型').asstring:='临时任务';
END;
end;