form1的DBGrid里显示了数据,form2的DBGrid里也显示了数据,
点击form1的button出现form2,然后点击form2的DBGrid里的数据可以将记录增加到form1的DBGrid里。
请问这个怎么实现?

解决方案 »

  1.   

    form1.dbgrid1.datasource.dataset.append;
    //根据form2.dbgrid2.datasource.dataset.fieldbyname('XX').value对form1中字段逐一赋值form1.dbgrid1.datasource.dataset.post;
      

  2.   

    用sql语句吧 ,这样灵活一点。
      

  3.   

    procedure TForm1.Add1Click(Sender: TObject);
    begin
      begin
        Form2:=TfrmAddSampleItem.Create(Self);
        Form2.Show;
      end 
    end;procedure TForm2.DBGrid1DblClick(Sender: TObject);begin
        Form1.ADODataSet1.Append;
        Form1.ADODataSet1.FieldValues['FieldName1']:=ADODataSet1.FieldValues['FieldName1'];
        Form1.ADODataSet1.FieldValues['FieldName2']:=ADODataSet1.FieldValues['FieldName2'];
      end
      end;
      

  4.   

    第一段应改成
    procedure TForm1.Add1Click(Sender: TObject);
    begin
      begin
        Form2:=TForm2.Create(Self);
        Form2.Show;
      end 
    end;