专家坐堂-IsNumberic(e.Sender.text)Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  IsNumberic(e.Sender.text)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30717)

--  作者：ttitt147
--  发布时间：2013/4/2 16:28:00
--  IsNumberic(e.Sender.text)

IsNumberic(e.Sender.text)

这样写不行，要怎么写？

--  作者：Bin
--  发布时间：2013/4/2 16:29:00
--
e.Sender 先把它转换成指定控件。再操作

--  作者：ttitt147
--  发布时间：2013/4/2 16:31:00
--
我这个控件是动态增加的控件，要判断其输入内容，要如何处理。

--  作者：Bin
--  发布时间：2013/4/2 16:31:00
--
例如 Dim lb As WinForm.Label= e.Sender

--  作者：ttitt147
--  发布时间：2013/4/2 16:31:00
--
错误提示是：未声明 isnumberic

--  作者：Bin
--  发布时间：2013/4/2 16:31:00
--
动态控件一样有名称的啊。和普通控件一样获取即可

--  作者：Bin
--  发布时间：2013/4/2 16:32:00
--
e.Form.Controls("控件名") 即可

--  作者：ttitt147
--  发布时间：2013/4/2 16:34:00
--
If e.Sender.name.SubString(len(e.Sender.name) - 1) = 2 Then
Dim s As String = e.Sender.text
    If IsNumberic(s) Then
        If Cint(e.Sender.text) > 1000 Then
            MessageBox.Show("时间最大允许值为1000!")
            e.Sender.text = 1000
        End If
    Else
        MessageBox.Show("输入内容错误!")
        e.Sender.text = 1000
    End If
End If

--  作者：ttitt147
--  发布时间：2013/4/2 16:34:00
--
总提示isnumberic未声明

--  作者：ttitt147
--  发布时间：2013/4/2 16:35:00
--
未声明名称 IsNumberic