- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]string错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110718)
-- 发布时间：2017/12/8 9:43:00
-- [求助]string错误提示
[求助]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
-- 发布时间：2017/12/8 9:46:00
--
代码没问题的。你关闭项目重新打开，重新写入代码，即可。