移动页面利用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
加好友 
发短信
Post By：2020/5/22 12:46:00 [显示全部帖子]
