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 进行 有偿 编写!(不贵!点击查看价格!)
相关文章
-
没有相关内容