【结贴】保存事件运行了.直接就运行关闭窗体事件了是怎么回事？？[重要]**

raorao · 发表于 2009-7-6 15:36:42

保存事件运行了.直接就运行关闭窗体事件了是怎么回事??急

lixy · 发表于 2009-7-6 15:45:09

能贴下保存的代码吗？

raorao · 发表于 2009-7-6 15:46:34

var
  lStream : TMemoryStream;
begin

  if DataSetCYRY.State in [TDataSetState.dsInsert, TDataSetState.dsEdit]then
  begin
lStream := TMemoryStream.Create;
try
   TBlobField(DataSetdsFBARY.FieldByName('zp')).SaveToStream(lStream);
   lStream.Position := 0;
   TBlobField(DataSetCYRY.FieldByName('zp')).LoadFromStream(lStream);
finally
   lStream.Free;
end;
DataSetCYRY.ApplyUpdates(false);
  end;
  DS_ALL.DataSet.Refresh;
end;

lixy · 发表于 2009-7-6 15:49:31

你的代码所在窗体时showmodal样式的吗？

raorao · 发表于 2009-7-6 15:51:02

bsDialog

raorao · 发表于 2009-7-6 15:52:45

窗体样式:fsNormal
边框样式:bsDialog

lixy · 发表于 2009-7-6 15:54:20

我说的意思是你这个窗体时是showmodal出来的吗？

raorao · 发表于 2009-7-6 15:55:57

嗯是的

lixy · 发表于 2009-7-6 15:59:45

把你执行上面语句的按钮 modalresult 设置成mrnone

raorao · 发表于 2009-7-6 16:05:07

本来就是这么设置的啊.

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