如果一個DBGrid我想要抓取(2,2)的內容...請問該如何抓取!?

您好﹗    可以透過資料集元件來抓取相對應DBGrid中指定位置的資料內容﹐以下以字串形態欄位為例﹕

Var
  I, J : Integer;
  Str : String;
begin
  I := StrToInt(Edit1.Text);
  J := StrToInt(Edit2.Text);
  ADOTable1.First;
  ADOTable1.MoveBy(I-1);
  Str := ADOTable1.Fields.Fields[J-1].AsString;
end;

若涉及的欄位形態不一﹐可使用Variant變形資料形態﹐如下﹕

Var
  I, J : Integer;
  MyVariant : Variant;
begin
  I := StrToInt(Edit1.Text);
  J := StrToInt(Edit2.Text);
  ADOTable1.First;
  ADOTable1.MoveBy(I-1);
  MyVariant := ADOTable1.Fields.Fields[J-1].AsVariant;
end;

========================= 大病初愈﹐休養調整中... ========================= 發表人 - cashxin2002 於 2004/09/23 09:45:34

------
忻晟

您好.. 如果不想對table或是Query做任何的動作的話.. 有沒有辦法能直接取出某一格內的資料!? 因為如果資料量龐大的話..這樣的作法似乎會拖慢程式的速度!?

cmchin您好： 可以试试下面做法，是不是您所要的：

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  showmessage(Column.Field.AsString);
end;    也可以试试
TStringGrid(dbgrid1).Cells[2,2]//第二行，第二列
强制转换，具体没实践过，试试看

——行径窄处，留一步与人行—— 發表人 -

感謝大家幫忙^^

TStringGrid(dbgrid1).Cells[2,2]; 肯定是不可以！ 因為 Cells 為 TstringGriD property DBGrid 是由 TCustomDBGrid 繼承。 主要還是要靠 您是用那一方面？ 選擇較省力的方法。 否則光靠 抓取(2,2)的內容 除非 移動 Record 好像就別無他法

orz 現在是先用 Column.Field.AsString 的方式來抓取那一格的資料 因為不管怎麼試...似乎都要先移動到dbgrid所指的位置...orz 之前是想將DBGrid當成陣列來使用..結果似乎沒辦法orz

引言: TStringGrid(dbgrid1).Cells[2,2]; 肯定是不可以！ 因為 Cells 為 TstringGriD property DBGrid 是由 TCustomDBGrid 繼承。 主要還是要靠 您是用那一方面？ 選擇較省力的方法。 否則光靠 抓取(2,2)的內容 除非 移動 Record 好像就別無他法