起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 306|回复: 10

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

[复制链接]
发表于 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);
回复

使用道具 举报

发表于 2007-11-1 11:32:22 | 显示全部楼层
无法保存?有什么错误提示吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-1 11:35:36 | 显示全部楼层
没有提示 修改文档后 保存按钮不能用
回复 支持 反对

使用道具 举报

发表于 2007-11-1 11:50:35 | 显示全部楼层
保存按钮不能用是指点了不起作用还是不能点,你们的office是什么版本?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-1 11:55:56 | 显示全部楼层
不能 点击 的 是平台的按钮
office 是 2003
回复 支持 反对

使用道具 举报

发表于 2007-11-1 12:09:21 | 显示全部楼层
那你在打开按钮上加一句DataSetBroker1.DataSet.Edit;
DataSetBroker1就是相关的数据集
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-1 14:56:56 | 显示全部楼层
还是不行啊
按钮能按了 可是文档修改过的地方无法保存啊
回复 支持 反对

使用道具 举报

发表于 2007-11-1 16:39:51 | 显示全部楼层
“可是文档修改过的地方无法保存啊” 是什么意思啊?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-1 16:43:04 | 显示全部楼层
文档的内容没有被保存
回复 支持 反对

使用道具 举报

发表于 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;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-30 07:03 , Processed in 0.046279 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表