【结】打开多个excel的问题**

tang_cy

想将内容以excel展现，出现问题：
第一次点击，打开了1张，第二次2张，第三才3张......
每点一次就多一张，怎么回事？
代码如下：

var
  OLEContainer: TOleContainer;
  sm:TStream;
begin
//修改

      if DS1.DataSet.fieldbyname('guid').Text<>'' then
      begin
          try

          sm   := self.DS1.Dataset.CreateBLOBSTREAM(DS1.Dataset.fieldbyname('RZNR'),TBlobStreamMode.bmRead);
          if   sm.Size   =   0   then
          begin
             exit;
          end;
          OLEContainer:=TOleContainer.Create(self);
          OLEContainer.Width:=0;
          OLEContainer.Height:=0;
          OLEContainer.Parent := Panel6;
          OLEContainer.CreateObject('word.document',true);
          OLEContainer.loadfromstream(sm);
          OLEContainer.DoVerb (OleCtnrs.ovOpen);
          OLEContainer.SizeMode:=TSizeMode.smCenter;
         finally
         sm.free;
        // OLEContainer.Free;
        end;
      end;
end;

gaihl

将OLEContainer: TOleContainer;放在函数外面(全局变量),
if  OLEContainer = nil then
begin
         OLEContainer:=TOleContainer.Create(self);
          OLEContainer.Width:=0;
          OLEContainer.Height:=0;
          OLEContainer.Parent := Panel6;
end;
试下

tang_cy

可以了，结贴
不过我原来用了free竟然都不得，有点奇怪哦