[求助]string错误提示，代码如下：Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "validyy.htm"
Dim wb As New weui
Dim str As String = e.values("客户编号") ' 定义了一个字符
Dim dr As DataRow = DataTables("客户管理").Find("客户编号='" & e.Values("客户编号") & "'")
If e.PostValues.ContainsKey("客户姓名") AndAlso e.PostValues.ContainsKey("门店编号") AndAlso e.PostValues.ContainsKey("预约日期") AndAlso e.PostValues.ContainsKey("预约时间") Then
If str > "" AndAlso str.length <> 11 Then
e.WriteString("客户编号输入位数不正确!")
ElseIf dr Is Nothing Then
e.WriteString("未找到该客户的信息,请先建档登记!")
Else
e.WriteString("OK")
End If
Else
e.WriteString("请完整输入所填内容!")
End If
e.WriteString(wb.Build) '生成网页
End Select
此主题相关图片如下：错误提示.gif
加好友 
发短信
Post By：2017/12/8 9:43:00 [只看该作者]
