zswang(伴水)(需要充充电) 帮帮我！！！

Question

抱歉，关于你的问题我现在才看见
//参考
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
    FStringList: TStringList;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  J: Integer;
  S: string;
begin
  S := Format('%d,%d',
    [Column.Index, TDBGrid(Sender).DataSource.DataSet.RecNo]);
  J := FStringList.IndexOf(S);
  if J >= 0 then begin
    TDBGrid(Sender).Canvas.Brush.Color := clSkyBlue;
    TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FStringList := TStringList.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  FStringList.Free;
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  J: Integer;
  S: string;
begin
  S := Format('%d,%d',
    [Column.Grid.SelectedIndex, Column.Grid.DataSource.DataSet.RecNo]);
  J := FStringList.IndexOf(S);
  if J >= 0 then
    FStringList.Delete(J)
  else FStringList.Add(S);
  Column.Grid.Refresh;
end;end.

Answer 1

原带的 DBGrid 太不好用 用 infopower 的吧! 在 DataSet 中加一个 Selected (计算字段)就是你的要求了

Answer 2

：　cyj(SQL PYJ)　：你好！问题解决了吗？我说过：　zswang(伴水)(需要充充电)　既厉害又乐于助人啊

Answer 3

我个人觉得
我们日后成为大虾后
应该向 zswang(伴水)(需要充充电)一样乐于助人,我说过的这些话,我一定会做到的