[求助](已解决)TabBar样式重叠 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

7、8楼表单按钮和菜单的固定都可行，感谢小甜甜！

现在我在视图上，翻页和筛选/操作按钮做固定。

因为有两行，以下写法被覆盖了一组AddButtonGroup，只显示了一行，求指导。

代码如下：

'翻页; 筛选/操作按钮

wb.InsertHTML("<div style='height:50px'></div>")

wb.AddPage("","an1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"

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

If page <= 0 Then

.Add("btnFirst", "首页", "button").Kind = 1

.Add("btnPrev", "上页", "button").Kind = 1

Else

.Add("btnFirst", "首页", "", "gys_xpsq_st.htm?page=0")

.Add("btnPrev", "上页", "", "gys_xpsq_st.htm?page=" & page - 1)

End If

If page + 1 >= Pages Then

.Add("btnNext", "下页", "button").Kind = 1

.Add("btnLast", "末页", "button").Kind = 1

Else

.Add("btnNext", "下页", "", "gys_xpsq_st.htm?page=" & page + 1)

.Add("btnLast", "末页", "", "gys_xpsq_st.htm?page=" & Pages - 1)

End If

End With

wb.InsertHTML("<div style='height:50px'></div>")

wb.AddPage("","an2").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"

With wb.AddButtonGroup("an2", "btg2", False)

.Add("mnudAdd", "新增", "", "gys_xpsq.htm?MainPage=1&page=" & page) '跳转表单页

'.Add("mnudAdd", "新增", "", "gys_xpsq.htm") '跳转表单页

.Add("mnuEdit", "编辑").Attribute = ""

.Add("mnuDelete", "删除").Attribute = ""

If String.IsNullOrEmpty(filter) Then

.Add("btn1", "筛选", "", "gys_xpsq_select.htm").Kind = 1

Else

.Add("btn1", "取消筛选", "", "gys_xpsq_st.htm").Kind = 1

End If

.Add("btnLast", "返回", "", "default.htm")

End With

e.WriteString(wb.Build)

Return Nothing

如图：

此主题相关图片如下：两行按钮显示被覆盖.png

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","110","中国北京") '数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("<div style='height:100px'></div>")
        wb.AddPage("","page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'" '增加两个page
        With wb.AddButtonGroup("page1","btg2", False) '生成上一页和下一页按钮
            .Add("btnPrev", "上一页","","List.htm")
            .Add("btnNext", "下一页","","List.htm")
        End With
        With wb.AddButtonGroup("page1","btg3", False) '生成上一页和下一页按钮
            .Add("btnPrev1", "上一页","","List.htm")
            .Add("btnNext1", "下一页","","List.htm")
        End With
        e.WriteString(wb.Build)
End Select

感谢小甜甜！

辣么厉害可爱又甜。

主题：[求助](已解决)TabBar样式重叠