~{NRPhR*WT;-Pr:E#,Hg9{~}DBgridEH.dataset := tquery,~{DGC4OBCf5D4zBk;a75;X~}-1
~{J9SC~}adoquery~{TrC;SPNJLb#,T-O5M3J9SC~}Tquery~{SC~}datamodule~{M3R;9\@m~},
~{TuQySC~}adoquery~{4zBkK|#,6/L,=(A"5DJ1:rR*IhVC~}adoquery~{5D~}connectionstring~{6xTZ~}tquery~{@oCfC;SP~}connectionstring,~{Ub8vSPC;SP:C5D=b>v0l7(#?~}
~{P;P;~}procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  i: integer;
begin
  if DataCol = 0 then
  begin
    i := DBGridEh1.DataSource.DataSet.RecNo;
    DBGridEh1.Canvas.TextOut(rect.Left, rect.Top, IntToStr(i));
  end;
end;

解决方案 »

  1.   

    噢,这里显示乱码了怎样用Adoquery代替Tquery?当dbgrideh.datasource := tquery 的时候下面的代码返回的recno=-1
    当dbgrideh.datasource := tAdoquery 的时候下面的代码返回的recno=1,2,3,4...系统设计的时候使用tquery,现在改很cool的。
    我想用tadoquery代替它,但ado要设connection,Tquery没有提供这个。
    如果用adoquery.datasource:=tquery.datasource不行,请问有没有其它办法?
    谢谢