以文本方式查看主题

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

--  作者:YUNSEL
--  发布时间:2023/6/28 13:50:00
--  EXWEUI搜索控件的应用求助
下面这段代码是搜索控件的示例,我想在没有做输入条件值时,即进入该页面时,默认是全部的列表,当有输入搜索条件时,列表才过滤符合条件的内容。下面这段代码要怎么改?
  1. Select Case e.Path  
  2.     Case "testsearchbar.htm"  
  3.         Dim wb As New weui  
  4.         wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True\'引入样式2文件  
  5.         wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>",True\'引入框架文件  
  6.         With wb.AddTabBar("""tb1", 0)  
  7.             .AddPage("page1","消息","./images/消息.png")  
  8.             .AddPage("page2","通讯录","./images/通讯录.png")  
  9.             .AddPage("page3","工作台","./images/工作台.png")  
  10.             .AddPage("page4","我","./images/我.png")  
  11.         End With  
  12.         With ExWeUI.WebUI.AddSearchBar("bar01"\'添加一个搜索条  
  13.             .DataFunc ="test" \'绑定js的查询函数test  
  14.             .CancelFunc="testcancel" \'绑定js的取消函数testcancel  
  15.             wb.InsertHTML("page1",.BuildHtml) \'添加到page1  
  16.         End With  
  17.         wb.InsertHTML("page1","<br/>")  
  18.         With ExWeUI.WebUI.AddSearchBar("bar02",,True\'添加一个搜索条,全屏模式  
  19.             .DataFunc ="test" \'绑定js的查询函数test  
  20.             .DataUrl = "getSelect1" \'指定获取返回下拉列表的页面,全屏模式才有用  
  21.             .CancelFunc="testcancel" \'绑定js的取消函数testcancel  
  22.             wb.InsertHTML("page1",.BuildHtml)  
  23.         End With  
  24.         wb.InsertHTML("page1","<div id=\'p1\' style=\'margin:0.5em\'></div>"\'插入一个div,用于显示服务器返回的数据  
  25.         wb.AppendHTML("<script src=\'./weui/test.js\' ></script>"\'引用查询函数和取消函数所在的js文件  
  26.         wb.AppendHTML("<script>initExWeUI();</script>"\'初始化框架  
  27.         e.WriteString(wb.Build)  
  28.     Case "getSelect1" \'搜索条会通过post的方式提交2个数据,id和value,id是控件的id,value是全屏搜索条输入的查询字符  
  29.         Dim filter As String = "1=2"  
  30.         If e.PostValues.ContainsKey("value"Then  
  31.             filter = "省市 like \'%" & e.PostValues("value") & "%\'" ’使用模糊查询  
  32.         End If  
  33.         e.WriteString("|" & DataTables("行政区域").GetComboListString("省市",filter))  
  34.     Case "getSr.htm"  
  35.         Dim jo As JObject = JObject.Parse(e.PlainText) \'搜索条远程查询通过json的方式提交数据,格式为:{"id":"搜索条的框架ID","value":"搜索条输入的查询字符(或者选中的下拉项目)"}  
  36.         Dim wb As New WeUI  
  37.         Dim txt As String = "Foxtable 2022已经发布, 更方便的BOM数据处理和应用.."  
  38.         Dim s As String = jo("value").ToString \'获取搜索条提交的查询字符  
  39.         With wb.AddPanelGroup("","pg1", s & "列表")  
  40.             For i As Integer = 1 To 3  
  41.                 .Add("pn" & i,s & "新闻" & i,txt,"./images/button.png","http://www.foxtable.com"
  42.             Next  
  43.         End With  
  44.         e.WriteString(wb.Buildhtml("pg1")) \'只返回pg1控件的html代码  
  45. 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\'>"
获取列表显示到这里,比如
  1.        With wb.AddPanelGroup("page1","pg1", s & "列表")  
  2.             For i As Integer = 1 To 3  
  3.                 .Add("pn" & i,s & "新闻" & i,txt,"./images/button.png","http://www.foxtable.com"
  4.             Next  
  5.         End With  
wb.InsertHTML("page1","</div>"

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