标题：weui中错误提示窗口

在函数中如下代码：

 Dim dr5 As DataRow = DataTables("检疫资料").SQLFind("中文船名 = '" & e.PostValues("中文船名") & "' and 航次号='" & e.PostValues("航次号") & "'")
    If dr5 IsNot Nothing Then
        
        
              With wb.AddMsgPage("", "msgpage", "增加失败", "系统中已存在相同船名、航次，请核对！")
                  .icon = "Warn" '改变图标
                    .AddButton("btn5", "返回").Attribute = ""
               End With

messagebox.Show("3")
         e.WriteString(wb.Build)
                Return "" '必须返回        
        messagebox.Show("4")       
    End If

3和4之间报错

前边的函数是这样：  wb.AddForm("", "form2", "receive.htm?name=" & e.GetValues("name")) ''将主键同时传给recevie.htm页面

是不是这样就无法显示出receive中的提示？应该用哪种方法代替呢？

我简单说下看看：有a函数和b函数。a函数通过postvalue发送到了b函数两个值，比如说是船名和航次，b函数经过sqlfind查找数据库，发现数据库中已经有了相同的船名和航次的数据行，现在需要反馈给用户一个提示，告诉用户，已经有了相同的数据，请返回重填。类似于帮助文件中的check函数的功能，但是check函数是直接跳转到check，我这个是没有跳转，怎么才能实现提示用户？