EXWEUI搜索控件的应用求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面这段代码是搜索控件的示例，我想在没有做输入条件值时，即进入该页面时，默认是全部的列表，当有输入搜索条件时，列表才过滤符合条件的内容。下面这段代码要怎么改？

Select Case e.Path
Case "testsearchbar.htm"
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True) '引入样式2文件
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True) '引入框架文件
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1","消息","./images/消息.png")
.AddPage("page2","通讯录","./images/通讯录.png")
.AddPage("page3","工作台","./images/工作台.png")
.AddPage("page4","我","./images/我.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","<br/>")
With ExWeUI.WebUI.AddSearchBar("bar02",,True) '添加一个搜索条,全屏模式
.DataFunc ="test" '绑定js的查询函数test
.DataUrl = "getSelect1" '指定获取返回下拉列表的页面，全屏模式才有用
.CancelFunc="testcancel" '绑定js的取消函数testcancel
wb.InsertHTML("page1",.BuildHtml)
End With
wb.InsertHTML("page1","<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据
wb.AppendHTML("<script src='./weui/test.js' ></script>") '引用查询函数和取消函数所在的js文件
wb.AppendHTML("<script>initExWeUI();</script>") '初始化框架
e.WriteString(wb.Build)
Case "getSelect1" '搜索条会通过post的方式提交2个数据，id和value，id是控件的id，value是全屏搜索条输入的查询字符
Dim filter As String = "1=2"
If e.PostValues.ContainsKey("value") Then
filter = "省市 like '%" & e.PostValues("value") & "%'" ’使用模糊查询
End If
e.WriteString("|" & DataTables("行政区域").GetComboListString("省市",filter))
Case "getSr.htm"
Dim jo As JObject = JObject.Parse(e.PlainText) '搜索条远程查询通过json的方式提交数据,格式为:{"id":"搜索条的框架ID","value":"搜索条输入的查询字符（或者选中的下拉项目）"}
Dim wb As New WeUI
Dim txt As String = "Foxtable 2022已经发布, 更方便的BOM数据处理和应用.."
Dim s As String = jo("value").ToString '获取搜索条提交的查询字符
With wb.AddPanelGroup("","pg1", s & "列表")
For i As Integer = 1 To 3
.Add("pn" & i,s & "新闻" & i,txt,"./images/button.png","http://www.foxtable.com")
Next
End With
e.WriteString(wb.Buildhtml("pg1")) '只返回pg1控件的html代码
End Select

主题：EXWEUI搜索控件的应用求助