【结贴】代码打开附件，修改后无法保存，怎么办啊？**

Coordinator · 发表于 2007-11-1 10:43:01

打开代码：

if DB1_XQDYGL.DataSet.FieldByName('TRXQ_MBWD').IsNull then
Forms.Application.MessageBox('该项目未上传需求情况，无法查看！！', '注意',
Borland.Delphi.Windows.MB_ICONINFORMATION + Borland.Delphi.Windows.MB_OK)
else
TOleContainer(DataEdit1.InplaceControl).DoVerb(1);

lisb · 发表于 2007-11-1 11:32:22

无法保存？有什么错误提示吗？

Coordinator · 发表于 2007-11-1 11:35:36

没有提示修改文档后保存按钮不能用

lisb · 发表于 2007-11-1 11:50:35

保存按钮不能用是指点了不起作用还是不能点，你们的office是什么版本？

Coordinator · 发表于 2007-11-1 11:55:56

不能点击的是平台的按钮
office 是 2003

lisb · 发表于 2007-11-1 12:09:21

那你在打开按钮上加一句DataSetBroker1.DataSet.Edit;
DataSetBroker1就是相关的数据集

Coordinator · 发表于 2007-11-1 14:56:56

还是不行啊
按钮能按了可是文档修改过的地方无法保存啊

lisb · 发表于 2007-11-1 16:39:51

“可是文档修改过的地方无法保存啊” 是什么意思啊？

Coordinator · 发表于 2007-11-1 16:43:04

文档的内容没有被保存

lisb · 发表于 2007-11-1 18:00:55

在数据集的BeforePost事件中加一段
procedure TMainForm.DataSetBroker1BeforePost(DataSet: TDataSet);
var
  lStream: TStream;
begin
  lStream := DataEditOLE.DataSource.DataSet.CreateBlobStream(DataEditOLE.DataSource.DataSet.FieldByName(DataEditOLE.DataField), TBlobStreamMode.bmWrite);
  try
TOleContainer(DataEditOLE.InplaceControl).SaveToStream(lStream);
  finally
lStream.Free;
  end;
end;

		自动登录	找回密码
密码			立即注册