在WeUI事例中，如何嵌套1个弹出对话框到条件语句中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

针对实列地址：http://www.foxtable.com/mobilehelp/scr/0154.htm

提到在验证用户是否有在其它设备中使用的时候：

---------原句如下--------

   UserID = Rand.NextString(16) '生成随机用户ID
            UserName = EncryptText(UserName,"123","123") '将用户名加密.
            Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
            If  dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息
                dr.Delete()
            End If

------我希望在删除行之前执行-------

If dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息

--希望在此能自动弹出一个对话框出来，让当前用户点“确定”－－

---目的是：在终止另外一台设备之前给用户一个提示，并要求用户点确定后，才删除以下行

---以避免用户在另外一台设备做了一半的数据被丢失之类的情况出现

请教如何加？（用WeUI 格式的dialog/showDialog/其它)？具体不自怎么写..
dr.Delete()
End If

先谢谢专家了！

[此贴子已经被作者于2017/10/20 20:36:04编辑过]

主题：在WeUI事例中，如何嵌套1个弹出对话框到条件语句中？