以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  当某个值为空，判断后显示dialog，可以？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99634)
--  作者：zhangjian222200
--  发布时间：2017/4/23 12:00:00
--  当某个值为空，判断后显示dialog，可以？
如题，我自己测试不成功，都无法保存
帮助的例子都是点击按钮后执行的，如何才能不点按钮执行

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        Dim a As String
        If a = "" Then
            show(\'dlg1\')
        End If

        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK","确定").Attribute = """
        End With
        e.WriteString(wb.Build) \'生成网页
End Select
[此贴子已经被作者于2017/4/23 12:01:16编辑过]
--  作者：有点色
--  发布时间：2017/4/23 13:17:00
--  

 调用提示，不能再httpRequest里面写代码。

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
       
        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK","确定")
        End With
        wb.AppendHTML("<script>show(\'dlg1\')</script>")
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：zhangjian222200
--  发布时间：2017/4/25 19:38:00
--  
        With wb.AddDialog("bt3","dlg5", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK1","确定")
        End With
        With wb.AddButtonGroup("bt3","btg5",True)
            .Add("btn1", "确定", "button").Attri-bute= "on-click=\'show(\'dlg5\')\'"
        End With

这样调用没有成功



看到了，帮助里面有例子
[此贴子已经被作者于2017/4/25 19:46:22编辑过]