求详细方法!!
解决方案 »
- delphi指针问题
- ADO远程连接SQL2000的问题?
- 谁知道那里可以下载到indy10.0.52 和 LMD_Tools_v7.00.61 控件 谢谢
- 如何把我检索出来的在dBGrid中的数据发到指定的信箱啊。
- 如何让StringGrid 的某一列和显示,假如点某一安钮,就显示,在点隐藏
- 有关一个简单数据加密的函数?
- 强烈建议建立一个dxdbgrid的应用专题(不知有没有,我没搜过),因为它太强大了
- 菜鸟求救:在delphi中操作excel的问题。
- 我不做程序员,想找个女朋友
- 请问各位大虾
- 如何让PageControl页里出现滚动条
- 关于is结合as来判断组件所属类的疑问。高手解释一下。
DBGrid 對應的 DataSet ,
從一個數據表, 加一條記錄到另外一個表
因为两个dbgrid连接不同的数据表,
选中第一个得时候,数据指针也就指向了当前的记录,
实际上你将当前记录复制到另一个表中,然后刷新显示第二个表的dbgrid就可以了。
Table2----AdoQuery2---Datasource2if (DataSource1.State in dsEditModes) then
begin
AdoQuery2.Append;
AdoQuery2.FieldByName('字段1').Value :=AdoQuery1.FieldByName('字段1').Value;
AdoQuery2.FieldByName('字段2').Value :=AdoQuery1.FieldByName('字段2').Value;
...
end;
DataSetProvider + ClientDataSet1 + DataSource1 + 数据表 Table1----AdoQuery1---Datasource1
如果有TABLE1---〉TAble2中
设置连接
adquery2
然后
DataSetProvider2.DataSet := adquery2;
ClientDataSet2.ProviderName := DataSetProvider2;
DataSource2.dataset := ClientDataSet2;
DBGRid2.datasource := DataSource2;
当数据表都被激活时对ClientDataSet2
操作即可
当表1发生变化时,别忘记报表二数据提交到数据库
然火灾更新ClientDataSet2
Table2----AdoQuery2---Datasource2if (DataSource1.State in dsEditModes) then
begin
AdoQuery2.Append;
AdoQuery2.FieldByName('字段1').Value :=AdoQuery1.FieldByName('字段1').Value;
AdoQuery2.FieldByName('字段2').Value :=AdoQuery1.FieldByName('字段2').Value;
...
AdoQuery2.post;
end;
//刷新一下就出来拉。
with adoquery2 do
begin
adoquery2.close;
adoquery2.clear;
adoquery2.text:='select * from table';
adoquery2.open;
end;
你想用这种方式来移动记录,就首先要保证,
这个两个表的结构是一样的。