读取持仓数据，代码有误，运行了，也读取不了数据。哪里错了。

Sub Start_CommandButton1_Click()
    Application.ActivateFrame("K")
    Set Grid = Application.GetActiveGrid()
    Set Market = grid.GetMarketinfo()
   
    Set ReportData = Grid.GetReportData()

Private Accountid,Ibuyhold,Isellhold,Buyprice,Sellprice
   Sub Getholdbycode(Saccount,Scode,Smarket)
      Dim i,k
      Dim Buyholding
      Dim Buycost
      Dim Buytodayholding
      Dim Sellholding
      Dim Sellcost
      Dim Selltodayholding
      Dim Pnl
      Dim Usemargin
      Dim Code
      Dim Market

     On Error Resume Next
     Accountstatus=Order.Account2(2,Saccount)
     \'Application.Msgout Scode & "," & Smarket & "," & Saccount & ",Nextcode:" & Nextcode & ",账户状态:" & Accountstatus
      If Accountstatus=255 Or Accountstatus="" Then
          Exit Sub
      End If
      Call Order.Holdinginfobycode2(Scode,Smarket,Buyholding,Buycost,Buytodayholding,Sellholding,Sellcost,Selltodayholding,Pnl,Usemargin,Saccount)
     Ibuyhold=Buyholding
     Isellhold=Sellholding
     Buyprice=Buycost
     Sellprice=Sellcost 
   End Sub
 End Sub

Application.ActivateFrame("technic")
    Set Grid = Application.GetActiveGrid()       //获取窗格对象
    
    market =Grid.Market                               //取得当前市场以及品质代码。
    code = Grid.StockLabel
   
call Getholdbycode("1000",code,Market)      //调用下面的读取持仓过程，这部分过程没有问题。