FRDCDS.SetProvider(DSPthunder);
//FTXTCDS入数据表
FRDCDS.Open;
FRDCDS.AppendData(FTXTCDS.DATA, false);
if FThunderDM.ADOQthunder.State<>dsedit then FThunderDM.ADOQthunder.Edit ;
if FRDCDS.State<>dsedit then FRDCDS.Edit ;
//FRDCDS.Post;
e:=FRDCDS.ApplyUpdates(-1);
DSPthunder.ApplyUpdates(FRDCDS.data ,-1,e) ;
只有最后一行能更新到数据库。。。。。。