和上次回答的差不多,依然可以这样:
form1.Tag := Integer(clientDataset1);
form2.Tag := Integer(clientdataset2);在主窗口的action1的execute事件中写:
var
aTag: Integer;if Assigned(Screen.ActiveForm) then
begin
aTag = Screen.ActiveForm.Tag;
if (aTag <> 0) then
with TObject(aTag) as TDataSet do
Append;
end;
form1.Tag := Integer(clientDataset1);
form2.Tag := Integer(clientdataset2);在主窗口的action1的execute事件中写:
var
aTag: Integer;if Assigned(Screen.ActiveForm) then
begin
aTag = Screen.ActiveForm.Tag;
if (aTag <> 0) then
with TObject(aTag) as TDataSet do
Append;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货