没有格式化造成的:这样:
Dim Ok1 As Boolean
Dim syye As String = e.form.Controls("剩余余额").Text
Dim kfje As String = e.form.Controls("扣费金额").Value
If kfje Is Nothing Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额"
ElseIf kfje <= 0 Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额.不能为 0"
ElseIf kfje >Format(syye,"0000") Then
e.form.Controls("扣费金额提示").Text = "账号余额不足"
Else
e.form.Controls("扣费金额提示").Text = Nothing
Ok1 = True
End If
或者
Dim Ok1 As Boolean
Dim syye As String = e.form.Controls("剩余余额").Text
Dim kfje As String = e.form.Controls("扣费金额").Value
If kfje Is Nothing Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额"
ElseIf kfje <= 0 Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额.不能为 0"
ElseIf kfje > Tables("hyuser").Current("账号余额") Then
e.form.Controls("扣费金额提示").Text = "账号余额不足"
Else
e.form.Controls("扣费金额提示").Text = Nothing
Ok1 = True
End If