form1的DBGrid里显示了数据,form2的DBGrid里也显示了数据,
点击form1的button出现form2,然后点击form2的DBGrid里的数据可以将记录增加到form1的DBGrid里。
请问这个怎么实现?
点击form1的button出现form2,然后点击form2的DBGrid里的数据可以将记录增加到form1的DBGrid里。
请问这个怎么实现?
解决方案 »
- delphi中POPUPMENU如何右擊複製DBGRID選擇中的內容
- delphi的dll中用到的bpl都得以共享的方式存在?
- 有用smspdu.dll做短信开发的么?进来交流一下,高分相赠!!!
- 如何用WordApplication1和WordDocument1设置word文档安全性?
- 急~~~怎样怎么判断一个表在数据库里是否存在??
- IdFTPServer服务器端程序,大侠帮忙看看.
- DateTimePicker用法
- 求一个三方界面控件!如提供,100分就是他的!
- 我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage(sql.text);怎么实现呢
- 怎么执行存储过程呢??按钮下的代码exec proc,系统不认,怎么版??//牛虻
- 怎么这个函数老是报错.我看了一晚还是看出不问题,哈哈,哪个来帮帮我..
- MDI主窗体里的某个子窗体被选中,主窗体如何截获这个事件
//根据form2.dbgrid2.datasource.dataset.fieldbyname('XX').value对form1中字段逐一赋值form1.dbgrid1.datasource.dataset.post;
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;
procedure TForm1.Add1Click(Sender: TObject);
begin
begin
Form2:=TForm2.Create(Self);
Form2.Show;
end
end;