主题：这行代码要怎么改?请教老师

在TextBox1控件Leave事件中输入下面代码,出现错误提示"从字符串""到类型的"Double"转换无效,控件中的值为"双精度小数",控件跟表不绑定,值要精确到0.11范围,转换为

 

Double怎么会出现错误呢?请教老师

 

Dim kd As Double = e.Sender.Text
If kd > 0 Then
    e.Form.Controls("CheckBox1").Checked = False
    e.Form.Controls("CheckBox2").Checked = False
    e.Form.Controls("CheckBox3").Checked = False

Endif

改用数字框！

感谢程老师,但数值组合框也是一样的问题

控件值为空的时候或清除控件数值,离开控件后就出现上面的错误,数值输入后不提示错误

Dim kd As Double = val(e.Sender.Text)
If IsNumeric(e.Sender.Text) Then
    If kd > 0 Then
        e.Form.Controls("CheckBox1").Checked = False
        e.Form.Controls("CheckBox2").Checked = False
        e.Form.Controls("CheckBox3").Checked = False
    Else
        '''相应的判断

    End If
Else
    e.Sender.Value = ""
    e.Sender.Select()
    Return
End If

 直接改一下就行了。

Dim kd As Double = val(e.Sender.Text)
If kd > 0 Then
    e.Form.Controls("CheckBox1").Checked = False
    e.Form.Controls("CheckBox2").Checked = False
    e.Form.Controls("CheckBox3").Checked = False

Endif

感谢林老师跟lsy老师的代码,同时学会了val跟IsNumeric