如题:::如何实现 双击DBGrid 把这一行中的数据对应显示到相应的Edit中

解决方案 »

  1.   

    edit1.text := adoquery1.fieldbyname('name').Astring;
      

  2.   

    ondbClick 方法中 从datesource中获得索引行数据
      

  3.   

    1楼有笔误:Astring 应该改成 AsString在 DBGrid 的事件 OnDblClick 中写代码:
    procedure TForm1.DBGrid1DblClick(Sender: TObject);
    begin
      if (ADOQuery1.Active) and (ADOQuery1.RecordCount > 0) then
        Edit1.Text := ADOQuery1.FieldByName('name').AsString;
    end;
      

  4.   

    有没有代码帮助  谢谢了我的代码  看看可不可行Form1.Edit1.Text := DbGrid1.SelectedField[0].AsString;这里有两个Form,我要把一个Form里面的DBGrid里面的一行的数据,通过双击某个单元格,能将这一行的数据都相应的显示在指定的Edit中
      

  5.   

    在 DBGrid 的事件 OnDblClick 中写代码: 
    然后看下变量是否为空,不为空取出
      

  6.   

    在DBGrid1的DblClick事件里写edit1.text := adoquery1.fieldbyname('name').Astring;或者edit1.text := DBGrid1.Columns[2].DisplayText;呵呵
      

  7.   

    弄一组DbEdit就正好了。免代码。
      

  8.   

    在 DBGrid 的事件 OnDblClick 中写代码: 
    procedure TForm1.DBGrid1DblClick(Sender: TObject); 
    begin 
      if (ADOQuery1.Active) and (ADOQuery1.RecordCount > 0) then 
        Edit1.Text := ADOQuery1.FieldByName('name').AsString; 
    end;