金字塔如何把VBS中字符參數(shù)傳遞給公式系統(tǒng)？　[金字塔]

Sub Technic_Paint()
 Set Grid =Technic.GetGridByName("Main")
 if Grid is NoThing Then
    Exit Sub
  End if
 CALL Grid.DrawRect(18,25,120,48,RGB(255,255,0),2)
 call Grid.DRAWTEXT(20,28,"執(zhí)行外部分析程序",500)
 framename=application.GetActiveFrameName
 if framename<> "Technic" then
 Application.ActivateFrame "Technic"
 end if
    nname=Grid.StockName  
    ccode=Grid.IndexCode
    application.MsgOut nname &"  "&ccode
  
End Sub

現(xiàn)在想把nname與ccode這兩個(gè)參數(shù)傳給公式中：

<%

vspj=ccode

ffl.vardata("spj")=vspj
%>
vspj:spj;

c1:="vspj$close" -"if13$close";
o1:="vspj$open" -"if13$open";
h1:="vspj$high" -"if13$high";
l1:="vspj$low" - "if13$low";

kred:STICKLINE( c1>o1,c1 ,o1, 10,1 ,colorred);//空心實(shí)體
kred1:STICKLINE( c1>o1,max(h1,c1) ,max(c1,o1), 0,1 ,colorred);//上引線
kred2:STICKLINE( c1>o1,min(c1,o1) ,min(l1,o1), 0,1 ,colorred);//下引線

kgreen:STICKLINE( c1<=o1,c1 ,o1, 10,1 ),colorgreen;//實(shí)心實(shí)體
kgreen1:STICKLINE( c1<=o1,max(h1,o1) ,max(c1,o1), 0,1 ,colorgreen);
kgreen2:STICKLINE( c1<=o1,min(c1,o1) ,min(l1,c1), 0,1 ,colorgreen);
fc:=c1;

提示錯(cuò)誤！

敬請老師指教！

Sub Technic_Paint()
 Set Grid =Technic.GetGridByName("Main")
 if Grid is NoThing Then
    Exit Sub
  End if
 CALL Grid.DrawRect(18,25,120,48,RGB(255,255,0),2)
 call Grid.DRAWTEXT(20,28,"執(zhí)行外部分析程序",500)
 framename=application.GetActiveFrameName
 if framename<> "Technic" then
 Application.ActivateFrame "Technic"
 end if
    nname=Grid.StockName  
    ccode=Grid.IndexCode

    '傳遞數(shù)據(jù)到全局變量數(shù)據(jù)庫

    Document.SetExtString("TestName",nname )

    Document.SetExtString("TestCode",ccode)

    application.MsgOut nname &"  "&ccode
  
End Sub

現(xiàn)在想把nname與ccode這兩個(gè)參數(shù)傳給公式中：

//公式讀取全局變量數(shù)據(jù)庫字符串

ccode:=EXTGBSTRING('testcode');

<%

vspj=FFL.StrVarData("ccode" ) '公式中字符串變量傳遞到VBS公式中

ffl.vardata("spj")=vspj
%>
vspj:spj;

c1:="vspj$close" -"if13$close";
o1:="vspj$open" -"if13$open";
h1:="vspj$high" -"if13$high";
l1:="vspj$low" - "if13$low";

kred:STICKLINE( c1>o1,c1 ,o1, 10,1 ,colorred);//空心實(shí)體
kred1:STICKLINE( c1>o1,max(h1,c1) ,max(c1,o1), 0,1 ,colorred);//上引線
kred2:STICKLINE( c1>o1,min(c1,o1) ,min(l1,o1), 0,1 ,colorred);//下引線

kgreen:STICKLINE( c1<=o1,c1 ,o1, 10,1 ),colorgreen;//實(shí)心實(shí)體
kgreen1:STICKLINE( c1<=o1,max(h1,o1) ,max(c1,o1), 0,1 ,colorgreen);
kgreen2:STICKLINE( c1<=o1,min(c1,o1) ,min(l1,c1), 0,1 ,colorgreen);
fc:=c1;

因該是你的代碼問題了。

將你的全局變量數(shù)據(jù)庫的寫入部分代碼貼過來看看