以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 如何将文本型的控件值转为整数?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51722)

--  作者:netfox168
--  发布时间:2014/6/1 23:28:00
--  [求助] 如何将文本型的控件值转为整数?
在窗口有一文本型控件"新增",我想将其中的值当做整数定义变量用于其他,比如某表新增行数:

Dim addrows As WinForm.TextBox = e.Form.Controls("新增")
Tables("表名").AddNew(addrows)

但提示 WinForm.TextBox 无法转为 Integer ,有什么办法解决?


--  作者:netfox168
--  发布时间:2014/6/2 0:27:00
--  
自行解决了:

Dim addrows As WinForm.TextBox = e.Form.Controls("新增")
Dim add As String = addrows.text
Tables("表名").AddNew(add)

中间加多一个过渡的变量 "add" 。

--  作者:菲舍尔
--  发布时间:2014/6/2 1:40:00
--  

虽然你声称解决了问题,但方法是错误的,只是瞎猫碰上了死耗子

 

 

问题的正解是:

 

文本型的控件的值是string型的,当你想将其转换成整数型的时候,你应该用转换函数Cint()

 

正确的代码应该是这样的:

 

Dim addrows As WinForm.TextBox = e.Form.Controls("新增")
Dim add As Integer = cint(addrows.text)
Tables("表名").AddNew(add)
 
你之前的代码之所以运行正确是,因为VB.net本身有个自动转换功能。
如果e.Form.Controls("新增")的值不是数字,就会出错。
 

--  作者:netfox168
--  发布时间:2014/6/3 11:14:00
--  
也许你是对的,我之前也用过 cint 这个转换函数,但总提示出错,不知什么原因。
又学了一些新知识,谢谢!