网页按钮BUG - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网页按钮BUG

共有2261人关注过本帖树形打印复制链接主题：网页按钮BUG

nblwar

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

加好友

发短信

等级：四尾狐帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00

网页按钮BUG 发帖心情

Post By：2018/10/10 16:32:00 [只看该作者]

'生成换页按钮

With wb.AddButtonGroup("", "btg1", False)

With .Add("btnFirst", "首页", "button", "pdjl.htm?all=" & all & "&page=0")

If page <= 0 Then

.Kind = 1

.Enabled = False

End If

End With

这样生成的按钮，还是可以点击并触发

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/10 16:48:00 [只看该作者]

换一种思路

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .CreateFromDataTable(DataTables("表A"))
        End With
        With wb.AddButtonGroup("", "btg1", False)
            With .Add("btnFirst", "首页", "button")
                If 1=1 Then
                    .Attribute = ""
                    .Kind = 1
                    .Enabled = False
                Else
                    .Attribute = "onclick = ""location='http://www.baidu.com'"""
                    .Kind = 1
                    .Enabled = True
                End If
            End With
        End With
        e.WriteString(wb.Build)
End Select

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

主题：网页按钮BUG