高分相赠100分，在线等待！得到我所选责的dbgrid的当前单元格行号和列号，还有怎么用代码给此单元格写内容！

Question

哪为大哥大姐能帮我得到我所选责的dbgrid的当前单元格行号和列号，还有怎么用代码给此单元格写内容！急急急！！！！！！！

Answer 1

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  showmessage(inttostr(Tstringgrid(dbgrid1).row)+','+inttostr(Tstringgrid(dbgrid1).col));
end;

Answer 2

你试试，没问题的，接分啦。
你只要把它强制成TstringGrid就可以利用stringgrid的row和col了，阿哈

Answer 3

1.楼上已答过了；
2.操作其DataSet:
  ADOQuery1.Edit;
  DBGrid1.SelectedField.Value := 'season';
  //ADOQuery1.FieldByName('sName').AsString := Edit1.Text;
  ...
  ADOQuery1.Post;

Answer 4

把它的option属性当中的edit设true，就可以写了

Answer 5

哈哈，倒是没注意你的第二问：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOTable1.Edit;
  DBGrid1.SelectedField.Value := '123';
  ADOTable1.Post;
end;

Answer 6

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOTable1.Edit;
  DBGrid1.SelectedField.Value := '123';
  ADOTable1.Post;
end;

Answer 7

type
  TFake = class(TDBGrid);TForm1.DBGrid1ColEnter(Sender: TObject);
  Label1.Caption := format('column: %2d; Row: %2d', [TFake(DBGrid1).Col, TFake(DBGrid1).Row]);