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
加好友 
发短信
Post By：2017/8/23 8:02:00 [显示全部帖子]
