1000分求解,如何使用ClientDataSet.SaveToFile保存数据集的UpdateStatus属性 使用ClientDataSet.SaveToFile保存数据集的数据到本地文件,但不能记录ClientDataSet的UpdateStatus属性,给程序处理带来极大不便,现高分求解,急急急!!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有意思,刚刚在网络编程里边见过这个贴子,呵呵;明明是这个版的问题啊;Inc(-1) UpdateStatus 有那些?为什么不用Append?ClinetDataSet可以拽加数据的; cds 可以保留 UpdateStatus作个测试, 在窗口上放 ClientDataSet1, ClientDataSet2, DataSource1, DataSource2, DBGrid1, DBGrid2cds1 放原始数据cds2 用于查看 cds1 的 Delta, UpdateStatus 记录在 Delta 里procedure TForm1.SaveClick(Sender: TObject);begin // 保存 cds1 到 test.cds ClientDataSet1.SaveToFile('test.cds');end;procedure TForm1.LoadClick(Sender: TObject);begin // 先关 cds1, 再从 test.cds 中读取 ClientDataSet1.Close; ClientDataSet1.LoadFromFile('test.cds');end;procedure TForm1.SeeDeltaClick(Sender: TObject);begin // 查看 cds1 的 Delta ClientDataSet2.Data := ClientDataSet1.Delta;end;procedure TForm1.StatusClick(Sender: TObject);begin if ClientDataSet1.UpdateStatus = usModified then ShowMessage('this record has modified');end;procedure TForm1.StatusClick(Sender: TObject);begin // 查看当前记录是查被改动 if ClientDataSet1.UpdateStatus = usModified then ShowMessage('this record has modified');end; 不允许从数据类型 varchar 到数据类型 money 的隐性转换 帮忙看一下,哪里错了? 请教installshield制作delphi安装程序的问题... 类 Handle 各位大虾,如何统计Word等文件中中文字符的个数???用程序实现 希望大家帮忙看一下或up一下一个帖子,顺便把剩下的60分全部送给大家! 天王盖地虎!!!!!!!! 怎么判断按下了鼠标左键 窗体控制问题! 用query查询的小问题。 紧急求助,关于三层结构中DCOM连接的问题 有关用DCOM联接的问题,我在自己的机子上行,为什么别人机子上不行,或都人家机子上联接不到我机子
明明是这个版的问题啊;
Inc(-1)
为什么不用Append?ClinetDataSet可以拽加数据的;
作个测试, 在窗口上放 ClientDataSet1, ClientDataSet2, DataSource1, DataSource2, DBGrid1, DBGrid2cds1 放原始数据
cds2 用于查看 cds1 的 Delta, UpdateStatus 记录在 Delta 里procedure TForm1.SaveClick(Sender: TObject);
begin
// 保存 cds1 到 test.cds
ClientDataSet1.SaveToFile('test.cds');
end;procedure TForm1.LoadClick(Sender: TObject);
begin
// 先关 cds1, 再从 test.cds 中读取
ClientDataSet1.Close;
ClientDataSet1.LoadFromFile('test.cds');
end;procedure TForm1.SeeDeltaClick(Sender: TObject);
begin
// 查看 cds1 的 Delta
ClientDataSet2.Data := ClientDataSet1.Delta;
end;procedure TForm1.StatusClick(Sender: TObject);
begin
if ClientDataSet1.UpdateStatus = usModified then
ShowMessage('this record has modified');
end;procedure TForm1.StatusClick(Sender: TObject);
begin
// 查看当前记录是查被改动
if ClientDataSet1.UpdateStatus = usModified then
ShowMessage('this record has modified');
end;