以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动页面利用Insert Into写数据怎么添加条件判断 如姓名为空时 就直接不写数据 并返回页面 重新补全！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150164)
--  作者：李孝春
--  发布时间：2020/5/22 12:46:00
--  移动页面利用Insert Into写数据怎么添加条件判断 如姓名为空时 就直接不写数据 并返回页面 重新补全！
 移动页面利用Insert Into写数据怎么添加条件判断  如姓名为空时 就直接不写数据  并返回页面 重新补全！
红色部分代码能够实现姓名为空时，删除当前行  但是不能返回页面

怎么实现当姓名为空  单位名称为空  所属支部为空  图片类别为空 时不写数据，提示并返回页面要求填写完整。
代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim danweimingcheng As String  = e.PostValues("单位名称")
Dim suoshuzhibu As String  = e.PostValues("所属支部")
Dim xingming As String  = e.PostValues("姓名")
Dim tupianleibie As String  = e.PostValues("图片类别")
Select Case e.Path
    Case "upload.htm"
…………
If xingming.Length<1 Then
tables("web上传图片").current.delete
Return ""
Else
……
cmd.CommandText = "Inse rt Int o web上传图片 (单位名称,所属支部,图片类别,姓名,时间戳) Values(?,?,?,?,?)"
        cmd.Parameters.Add("@单位名称", danweimingcheng)
        cmd.Parameters.Add("@所属支部", suoshuzhibu)
        cmd.Parameters.Add("@图片类别", tupianleibie)
        cmd.Parameters.Add("@姓名", xingming)
        cmd.Parameters.Add("@时间戳", t)
        cmd.ExecuteNonQuery
        With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
            .AddButton("btn1","继续增加","xmttj.htm")
        End With
End If
        e.WriteString(wb.Build)
end Select 
--  作者：有点蓝
--  发布时间：2020/5/22 13:44:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0059.htm
--  作者：李孝春
--  发布时间：2020/5/22 14:49:00
--  回复：（有点蓝）参考：http://www.foxtable.com/mobi...
         ok  谢谢  按照老师指导的教程解决 
         Dim nms() As String = {"登记日期","平台类型","文章作者","wzbt"} \'不能为空的列名数组
            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