Foxtable(狐表)用户栏目专家坐堂 → EXWEUI搜索控件的应用求助


  共有3794人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
YUNSEL
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:206 积分:2656 威望:0 精华:0 注册:2016/11/9 19:13:00
EXWEUI搜索控件的应用求助  发帖心情 Post By:2023/6/28 13:50:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:206 积分:2656 威望:0 精华:0 注册:2016/11/9 19:13:00
  发帖心情 Post By:2023/6/28 14:05:00 [只看该作者]

太感谢了,通过自己一点点摸索,加上老师指导,学狐表输出自己想要的结果,会让自己很有成就感。

 回到顶部