I
iwantflywithwin
Unregistered / Unconfirmed
GUEST, unregistred user!
下面是我的一段代码,t_exim是主表。t_exim_list是从表。现在的问题是只有主表更新了,
从表却不更新
try
dmd_legend.adoc_Legend.BeginTrans;
t_exim.Edit;
t_exim_list.Edit;
t_exim.FieldByName('is_exim').AsBoolean:=true;
t_exim.UpdateBatch(arCurrent);//更新当前主表
t_exim_list.UpdateBatch(arAll);//更新当前主表下的所有从表
dmd_legend.adoc_Legend.CommitTrans;
showmessage('回填成功!');
except
dmd_legend.adoc_Legend.RollbackTrans;
showmessage('保存错误!');
exit;
end;
从表却不更新
try
dmd_legend.adoc_Legend.BeginTrans;
t_exim.Edit;
t_exim_list.Edit;
t_exim.FieldByName('is_exim').AsBoolean:=true;
t_exim.UpdateBatch(arCurrent);//更新当前主表
t_exim_list.UpdateBatch(arAll);//更新当前主表下的所有从表
dmd_legend.adoc_Legend.CommitTrans;
showmessage('回填成功!');
except
dmd_legend.adoc_Legend.RollbackTrans;
showmessage('保存错误!');
exit;
end;