以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有关error的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43650)
--  作者：myzzip
--  发布时间：2013/12/12 12:13:00
--  有关error的问题

Dim n1 As Double = e.Form.Controls("NumericComboBox6").Text
Dim n2 As Double = e.Form.Controls("TextBox4").Text
If n1 <>  "" Then
    If n1 >= n2 Then
        e.Form.Controls("NumericComboBox6").Error = "取量要小于余量!"
    Else
        e.Form.Controls("NumericComboBox6").Error  = ""
    End If
End If

 

代码报错 怎么回事，帮忙看看哪写错啦！
--  作者：Bin
--  发布时间：2013/12/12 12:21:00
--  

if e.Form.Controls("TextBox4").Text <> "" then

Dim n1 As Double = e.Form.Controls("NumericComboBox6").Value
Dim n2 As Double = Val(e.Form.Controls("TextBox4").Text)

   If n1 >= n2 Then

        e.Form.Controls("NumericComboBox6").Error = "取量要小于余量!"
    Else
        e.Form.Controls("NumericComboBox6").Error  = ""
    End If

end if