双击DBGrid控件,如何获得选中行中每个field的值?

解决方案 »

  1.   

    If Dbgrid2.SelectedField.FieldName='IfCheck' then
      begin
      

  2.   

    S := DBGrid1.DataSource.DataSet.FieldByName('Code_No').AsString;
    V := DBGrid1.DataSource.DataSet.FieldByName('Single_No').AsString;你雙擊的時候不就選中了該條記錄嗎?直接對數據庫操作就行了
      

  3.   

    procedure TForm1.DBGrid1DblClick(Sender: TObject);
    begin
      a1:=table1.fields[0].asstring;
      a2:=table1.fields[1].asstring;
    ..........
    end;
      

  4.   

    procedure TForm1.DBGrid1DblClick(Sender: TObject);
    begin
    If Dbgrid2.SelectedField.FieldName='yourfield' then
      begin
        //You want to do
      end; 
    end;