……Else
Dim nms() As String = {"客户姓名","建档日期","建档人员","楼盘名称","房号"} '不能为空的列名数组
'Dim nms() As String = {"客户姓名","客户电话","建档日期","建档人员","来源备注","楼盘名称","房号"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
If DataTables("终端用户").Find("客户电话='" & e.PostValues("客户电话") & "'") IsNot Nothing Then
With wb.AddMsgPage("","msgpage2","增加失败", "客户电话已经存在!")
.icon = "Warn" '改变图标
.AddButton("btn2","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
……
加好友 
发短信
Post By：2017/12/8 23:07:00 [显示全部帖子]
