我用TADOQuery就可以加上序号,用TQuery就不能为什么?procedure TForml.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Column.Index =0 then
with DBGrid1.Canvas do
begin
FillRect(Rect);
if DBGrid1.DataSource.DataSet.RecNo<>-1 then
TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGrid1.DataSource.DataSet.RecNo));
end;
end;用ADO的话可以正常显示序号,用BDE就不能?
用BDE的话DBGrid1.DataSource.DataSet.RecNo永远是-1,为什么?
如何解决啊?
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Column.Index =0 then
with DBGrid1.Canvas do
begin
FillRect(Rect);
if DBGrid1.DataSource.DataSet.RecNo<>-1 then
TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGrid1.DataSource.DataSet.RecNo));
end;
end;用ADO的话可以正常显示序号,用BDE就不能?
用BDE的话DBGrid1.DataSource.DataSet.RecNo永远是-1,为什么?
如何解决啊?
如果没有的话,有没有其他方法实现序号?我用的是BDE