以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  txt2.text，可以直接将字符转换为数字？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105617)
--  作者：旭日生
--  发布时间：2017/8/23 8:02:00
--  txt2.text，可以直接将字符转换为数字？
For i As Integer = -2 To   txt2.text　
这儿的txt2.text为什么可以直接转换成数字？

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim bh = Format(Date.Today, "yyMMdd") & Format(val(txt1.text), "000")

For i As Integer = -2 To   txt2.text　’这儿的txt2.text为什么可以直接转换成数字？
    Dim nr As Row = e.Form.controls("table1").Table.addnew
    nr("LSH") = bh
    Select Case  i
        Case -2
            nr("FILENAME") = "FM"  & ".jpg"
        Case -1
            nr("FILENAME") = "BKB"  & ".jpg"
        Case 0
            nr("FILENAME") = "ML"  & ".jpg"
        Case Else
            nr("FILENAME") = i & ".jpg"
    End Select
Next
--  作者：有点甜
--  发布时间：2017/8/23 8:49:00
--  

For i As Integer = -2 To txt2.text

 

等同于

 

For i As Integer = -2 To cint(txt2.text)

 

你最好写

 

For i As Integer = -2 To val(txt2.text)

 

 
--  作者：旭日生
--  发布时间：2017/8/23 9:12:00
--  
好象这样写也可以：
For i As Integer = -2 To   txt2.Value
--  作者：有点甜
--  发布时间：2017/8/23 9:34:00
--  
回复3楼，和2楼差不多的意思。