DBGRID上箭头移动的问题

wjfxyj 2010-02-23 11:46:43
我用DBGRID显示数据,当用下箭头向下移动,对应的EDIT能同步显示,但用上箭头向上移动,edit显示滞后一条,不同步,但当前记录号是同步的,如何解决请教各位高手。
具体代码如下:
procedure Txc_wldw.dbgrid1drawcolumncell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
edit1.text := xc.adodataset1['xh'];
edit2.text := xc.adodataset1['zjc'];
edit3.text := xc.adodataset1['wldwmc'];
edit4.text := xc.adodataset1['lxdh'];
edit5.text := xc.adodataset1['lxr'];
label6.Caption:='当前记录:第'+IntToStr(TStringGrid(DBGrid1).Row)+'条';
label7.Caption:='共有记录:'+IntToStr(xc.ADODataSet1.RecordCount)+'条';
end;
...全文
87 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
shuangyan 2010-02-23
  • 打赏
  • 举报
回复
用dataset的AfterScroll事件
火龙岛主 2010-02-23
  • 打赏
  • 举报
回复
使用Tdbedit,tdbText,关联同一个datasource就可以了。不用这么麻烦!

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧