主题：如何获得当前窗格(或其名称,序号)?

End Function

我怀疑是Formula没有对象,然后强行set了一个formula对象,但还是不行,ini文件中没有写入任何内容

Function getgrid(Formula)

  getgrid=0

  Result=""

  Set Grid = Technic.GetGridByName("Main") 

  Call Technic.GetFormulaByName("xxx", Result) //xxx就是本公式的名字

  if Result=0 then

     CAll Grid.InsertFormula("xxx")

  end if

  Set dd = Grid.GetFormulaByname("xxx") 

  set aa=dd.ParentGrid
  bb=aa.StockLabel
  Document.WritePrivateProfileString "Gen","StockLabel",bb,"D:\SystemSet.INI"

End Function