DBGrid

Question

如何实现点击DBGrid 上的记录，就把点击记录的数据显示到对应的文本框？
DBGrid 是用 ADOTable 邦定的数据

Answer 1

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=ADOTable1.FieldByName(Column.FieldName).AsString;
end;

Answer 2

Edit1.Text:=AdoTable1.Fields[0].AsString;
Edit2.Text:=AdoTable1.Fields[1].AsString;
...........或者用DBEdit连接对应的字段。

Answer 3

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    edit1.Text := DBGrid1.SelectedField.DataSet.FieldByName('字段名称').AsString;
end;
end.

Answer 4

那就把每一列都查出来，连接起来赋给Edit1的Text 每个字段中间用空格隔开吧。procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text := DBGrid1.SelectedField.DataSet.FieldByName('字段1').AsString + ' '+DBGrid1.SelectedField.DataSet.FieldByName('字段2').AsString + ' ' + DBGrid1.SelectedField.DataSet.FieldByName('字段N').AsString;end;end.