当某个值为空，判断后显示dialog，可以？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 当某个值为空，判断后显示dialog，可以？

共有1378人关注过本帖树形打印复制链接主题：当某个值为空，判断后显示dialog，可以？

zhangjian222200

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1528 积分：10778 威望：0 精华：0 注册：2016/9/12 11:18:00

当某个值为空，判断后显示dialog，可以？ 发帖心情

Post By：2017/4/23 12:00:00 [只看该作者]

如题，我自己测试不成功，都无法保存

帮助的例子都是点击按钮后执行的，如何才能不点按钮执行

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编辑过]

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1528 积分：10778 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：当某个值为空，判断后显示dialog，可以？