- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- TextBox 的值，多个值 取最大数？如何取？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110815)
-- 发布时间：2017/12/10 11:48:00
-- TextBox 的值，多个值 取最大数？如何取？
Dim sl As WinForm.TextBox = e.Form.Controls("税率")
Dim sl1 As WinForm.TextBox = e.Form.Controls("税率1")
税率1---至：税率20
如果批量找出，这：20个税率，textbox的最大值 ？
[此贴子已经被作者于2017/12/10 12:02:36编辑过]
-- 发布时间：2017/12/10 11:57:00
--
Dim max As double = 0
If val(sl.text) > val(sl1.text) Then
max = sl.text
Else
max = ls1.text
End If
If val(sl2.text) > max Then
max = sl2.text
End If
msgbox(max)
-- 发布时间：2017/12/10 12:04:00
--
TextBox 的值，多个值 取最大数？如何取？
Post By：2017/12/10 11:48:00 [只看该作者] Dim sl As WinForm.TextBox = e.Form.Controls("税率") Dim sl1 As WinForm.TextBox = e.Form.Controls("税率1") 税率1---至：税率20 如果批量找出，这：20个税率，textbox的最大值 ？ |
-- 发布时间：2017/12/10 12:09:00
--
如2楼的代码，请先看懂代码。
用循环这样写
Dim max As Double = 0
For i As Integer = 1 To 20
Dim v As Double = val(e.form.controls("TextBox" & i).Text)
If v > max Then
max = v
End If
Next
msgbox(max)