以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  手机版重复值 需要提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110767)

--  作者：有点蓝 --  发布时间：2017/12/8 23:07:00 --   …… 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 ……