VBA文本框取值問題 [金字塔]
- 咨詢內(nèi)容：
Set Report1 = marketdata.GetReportData("IF08","ZJ")
currentPrice = Report1.NewPrice '現(xiàn)在最新價是2192
price = CATraderUI_priceTextBox.value
if (currentPrice >= price) then msgbox ">=" else msgbox "<" end if
'無論在文本框中輸入任何數(shù)，最后均出現(xiàn) "<" 提示！不知問題出在哪兒了？ 但如果我改寫成
... if (currentPrice >= 2000) then msgbox ">=" else msgbox "<" end if 最后出現(xiàn)正確的提示 ">=" CATraderUI_priceTextBox文本框取值.Text取出來是String，.value取出來的Variant數(shù)據(jù)類型，它均不能與Report1.NewPrice直接比較大小嗎？ 切盼回復，謝謝！ - 金字塔客服：
price = CDbl(CATraderUI_priceTextBox.value)
強制轉(zhuǎn)換一下文本框的文本為數(shù)字后再試試
- 用戶回復： 果然OK了！萬分感激！
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯(lián)系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內(nèi)容
會員登錄/注冊