思路.txt

来自「SQL的应用」· 文本 代码 · 共 36 行

做一个全局变量，把所有的表明都传递给一个字符串

获取字段名
self.DBEdit1.Text:=self.DBGrid_DB.SelectedField.FieldName
字段值
DBEdit1.DataField:=ADOQuery_DB.IndexFields[0].AsString;

用循环依次写入字段：
for i := 0 query1.FieldCount -1 do
  comboBox1.Items.Add(query1.Fields[i].AsString); 

楼： //双击了dbgrid
procedure TfrmSTR_MAIN.Drd_DblClick(Sender: TObject);
var
  th:string;
begin
  with (sender as Tdbgrid) do begin
    if FieldCount<1 then exit;
    th:=Fields[0].Text;//取得当前行第一列数据
  end;
end; 

//双击DBGrid事件  动态改变DBEdit的值
procedure TF_Main.DBGrid_DBDblClick(Sender: TObject);
begin
  with (sender as Tdbgrid) do
  begin
    if FieldCount<1 then exit;
    DBEdit1.Text:=Fields[0].Text;//取得当前行第一列数据
    DBEdit2.Text:=Fields[1].Text;
    DBEdit3.Text:=Fields[2].Text;
  end;
end;