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