dbgrid中选中一个记录，怎么返回哪个记录的相应字段的内容阿？比如选中id为2的记录，怎么把2返回阿？

Question

dbgrid中选中一个记录，怎么返回哪个记录的相应字段的内容阿？比如选中id为2的记录，怎么把2返回阿？

Answer 1

用dbgrid 的Datasource對應的 Datasource的dataset進行操作即可﹒如dataset 為﹕qry_Department ,要返回字段Id的 值
var   aa :string ;
aa:=qry_DepartmentId.value;

Answer 2

procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Text:=form1.DBGrid1.Columns[1].Field.Value;
edit2.Text:=form1.DBGrid1.Columns[2].Field.Value;
edit3.Text:=form1.DBGrid1.Columns[3].Field.Value;
edit4.Text:=form1.DBGrid1.Columns[4].Field.Value;
edit5.Text:=form1.DBGrid1.Columns[5].Field.Value;
edit6.Text:=form1.DBGrid1.Columns[6].Field.Value;
edit7.Text:=form1.DBGrid1.Columns[7].Field.Value;
edit8.Text:=form1.DBGrid1.Columns[8].Field.Value;
edit9.Text:=form1.DBGrid1.Columns[9].Field.Value;
edit10.Text:=form1.DBGrid1.Columns[10].Field.Value;
edit11.Text:=form1.DBGrid1.Columns[11].Field.Value;
end;
这段程序不行啊，有的字段是空的就不能赋给edit.text了
还有我在form1中用DBGrid1CellClick可以动态改变form1.edit1.text但是在show form3后，form3总是打开第一个记录，怎么办阿？还有我在退出按钮里面些什么代码阿？我知道vb写end,mfc写onok();

Answer 3

re:有的字段是空的就不能赋给edit.text了edit1.Text:=form1.DBGrid1.Columns[1].Field.Value;
改為
form1.DBGrid1.Columns[1].Field.asstring;
空值null自動轉為''其余不明你意思