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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXWEUI搜索控件的应用求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187172)

--  作者：YUNSEL
--  发布时间：2023/6/28 13:50:00
--  EXWEUI搜索控件的应用求助

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

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

--  作者：有点蓝
--  发布时间：2023/6/28 13:58:00
--
wb.InsertHTML("page1","<div id=\'p1\' style=\'margin:0.5em\'></div>")
改为

wb.InsertHTML("page1","<div id=\'p1\' style=\'margin:0.5em\'>")
获取列表显示到这里，比如
With wb.AddPanelGroup("page1","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
wb.InsertHTML("page1","</div>")

--  作者：YUNSEL
--  发布时间：2023/6/28 14:05:00
--
太感谢了，通过自己一点点摸索，加上老师指导，学狐表输出自己想要的结果，会让自己很有成就感。