如何实现狐表网站上BUG收集处理网页，把搜索栏固定在顶端？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

看了狐表网站上BUG收集处理网页，可以固定项端与底端，中间数据上下移动，要怎么实现，我下面这段代码只能固定底端，顶端的搜索栏随着中间的数据往下，被隐藏掉了。

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

'定义底端导航

With wb.AddTabBar("", "tb1", 0)

.AddPage("page1", "首页", "./images/home.png")

.AddButton("page2", "办公", "./images/help.png", "index.htm")

.AddPage("page3", "退出", "./images/exit.png")

End With

'设置首页数据加载

With ExWeUI.WebUI.AddSearchBar("bar01") '添加一个搜索条

.DataFunc = "test" '绑定js的查询函数test

.CancelFunc = "testcancel" '绑定js的取消函数testcancel

wb.InsertHTML("page1",.BuildHtml) '添加到page1

End With

wb.InsertHTML("page1", "<div id='p1' style='margin:0.5em'>")

With ExWeUI.WebUI.AddListGroup("", "lst01", 1)

Dim docdrs As List(Of DataRow)

docdrs = DataTables("sy_files").Select("", "cjdate desc")

For Each docdr As DataRow In docdrs

With .AddList(docdr("Abstract"), docdr("listbg"), "artpage.htm/?artid=" & docdr("id"))

With .LeftFooter

.AddFoot(docdr("cjdate")).Attribute = "style='color:#00698C;font-size:12px'"

.AddFoot(docdr("cjuser")).Attribute = "style='color:#00698C;font-size:12px'"

End With

wb.InsertHTML("page1",.BuildHtml)

End With

wb.InsertHTML("page1", "</div>")

wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件

wb.AppendHTML("<script>initExWeUI()</script>")

e.WriteString(wb.Build)

这里就有同样的用法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94825

需要比较多的额外处理，仔细理解一下

参照示例研究，现在是固定了，但是列表宽度成这样子了：

此主题相关图片如下：微信图片_20230629114036.png

代码如下，不知是哪个环节错了？

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

wb.AppendHTML("<style> #tb1_pages{display: flex;overflow: auto;flex:1}</style>", True) '设置页面的布局方式

With wb.AddTabBar("", "tb1", 0)

.AddPage("page1", "订单", "./images/HOME.png")

.AddPage("page2", "下单", "./images/YSS.png")

.AddPage("page3", "商品", "./images/DDH.png")

.AddPage("page4", "我", "./images/WO.png")

End With

Dim p1Div = ExWeUI.WebUI.AddHtmlTag("", "", "div") '用于放置导航条和筛选条件

Dim p1Div1 = ExWeUI.WebUI.AddHtmlTag("", "", "div", , "style='display: flex;flex-direction: column;height:100%;'") '把page1内容都放到一个div中,使用flex布局,否则滚动组件底部会被TabBar遮挡

'信息页导航

With ExWeUI.WebUI.AddNavBar("", "navbar01")

.Attribute = "style='background-color: var(--blue);color: var(--white)'"

With .LeftGroup.AddItem("nvi01", "")

.image = "./images/00.png"

End With

.CenterGroup.Text = "订单列表"

With .RightGroup.AddItem("nvi04", "")

.image = "./images/01.png"

End With

With .RightGroup.AddItem("nvi03", "")

.image = "./images/00.png"

.Attribute = "" style = 'padding-right:10px' "

End With

p1Div.InnerHtml = p1Div.InnerHtml & .BuildHtml

End With

With ExWeUI.WebUI.AddSearchBar("sbar01") '添加一个搜索条

.class = "exui-displaynone"

.DataFunc = "BarSearchNewOrder" '绑定js的查询函数test

.CancelFunc = "closeSbar01" '绑定js的取消函数testcancel

p1Div.InnerHtml = p1Div.InnerHtml & .BuildHtml

End With

p1Div1.InnerHtml = p1Div.buildhtml

With ExWeUI.WebUI.AddListGroup("", "lst01", 1)

For i As Integer = 1 To 15

With .AddList("Foxtable数据库应用开发宝典数据管理", "images/zyxcl.png")

.TextStyle = "style='color:block;font-size:12px'"

.AutoHeight = True

.ImageWidth = 60

With .LeftFooter

.AddFoot("发布时间").Attribute = "style='color:#00698C;font-size:12px'"

.AddFoot("作者").Attribute = "style='color:#00698C;font-size:12px'"

End With

.RightFooter.AddFoot("帮助说明").Attribute = " style='color:blue;font-size:12px'"

End With

p1Div1.InnerHtml = p1Div.InnerHtml & ExWeUI.WebUI.AddHtmlTag("", "", "div", .BuildHtml & ExWeUI.WebUI.AddBackTop("bt01").BuildHtml , "class=""exui-scrollview""").buildhtml

End With

wb.InsertHTML("page1", p1Div1.buildhtml)

e.WriteString(wb.Build)

使用浏览器开发者工具调试，看是哪里的css样式有问题

主题：如何实现狐表网站上BUG收集处理网页，把搜索栏固定在顶端？