以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  区间控制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118842)

--  作者：有点蓝 --  发布时间：2018/5/11 23:06:00 --   类似 Dim qujian As String = "1~10" Dim arr() As String = qujian.Split("~") Dim a As Integer = 20 If a < val(arr(0)) OrElse a > val(arr(1)) Then     msgbox("数据超出范围") End If

--  作者：有点蓝 --  发布时间：2018/5/11 23:22:00 --   看懂代码，自己改为从控件或者行里取值