以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  [原创]VBA窗体问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=47627)
--  作者：小星星
--  发布时间：2013/1/11 14:48:28
--  [原创]VBA窗体问题

cjl1=CDbl(powerwindow_TextBox1.Text)
cjl2=CDbl(powerwindow_TextBox2.Text)

hy  =CDbl(powerwindow_TextBox6.Text)
Set History2 = marketdata.GetHistoryData(powerwindow_TextBox4,powerwindow_TextBox5,0)
TAmount2 = History2.Amount(History2.Count-2)/100000000
TAmount1 = History2.Amount(History2.Count-1)/100000000
d=TAmount2+TAmount1
Price1 = History2.Close(History2.Count-1)
CCL1 = History2.Openint(History2.Count-1)/100000000
CCL2 = History2.Openint(History2.Count-2)/100000000
CCLC = CCL1-CCL2
f=CCL1*Price1*hy
Msgbox powerwindow_TextBox1.Text
Msgbox TAmount1
Msgbox d
Msgbox cj1
Msgbox cj2

 

 

为什么 powerwindow_TextBox1.Text msgbox以后有数值

但是cjl1=CDbl(powerwindow_TextBox1.Text) msgbox cjl1就没有数值 而为空呢
--  作者：guotx2010
--  发布时间：2013/1/11 16:29:28
--  
powerwindow_TextBox1.Text的值是不是不是数字呀！
--  作者：小星星
--  发布时间：2013/1/11 17:07:57
--  

肯定是数字
--  作者：王锋
--  发布时间：2013/1/11 17:21:24
--  

用 VarType 函数

 

看看返回的值。

 

msgbox vartype(powerwindow_TextBox1.Text)