| 以文本方式查看主题 - 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=189518) |
| -- 作者：xuzihang -- 发布时间：2023/12/6 10:34:00 -- 未声明，ExWeUI 老师如下，没找出来原因，我看例子里也没做啊，怎么设置的 Dim e As RequestEventArgs = args(0) Dim wb As New weui Select Case e.Path Case "fclist" wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>", True) Dim drs As List(Of DataRow) = DataTables("11").SQLSelect("", 8, "[_Identify]") With ExWeUI.WebUI.AddExInfiniteScroll("pr01", "pullcallback", 0, 8) \'drs(drs.Count - 1)("_Identify")) Dim wb2 As New weui \'用于生成默认列表 With wb2.AddPanelGroup("", "pg1", "") For Each dr As DataRow In drs .Add("pn1" & dr("_Identify"), dr("类型") & dr("园区名") & dr("租售金"), dr("租期") ", 付款方式: " & dr("付款方式") & ", 发布: " & Format(dr("日期"), "yy年MM月dd日"), "./ images / button.png") \'超链接 Next End With .Content = wb2.BuildHtml("pg1") \'设置默认显示的列表 wb.InsertHTML(.BuildHtml) End With wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml) wb.AppendHTML(" < script > initExWeUI(); < / script > ") e.WriteString(wb.Build) End Select |
| -- 作者：有点蓝 -- 发布时间：2023/12/6 10:40:00 -- 把ExWeUI 的dll复制到Foxtable的安装目录，然后添加引用：http://www.foxtable.com/webhelp/topics/1936.htm |
| -- 作者：xuzihang -- 发布时间：2023/12/6 16:07:00 -- 谢谢，为啥做完的函数不好用呢， Dim sb As New StringBuilder sb.AppendLine("<meta name=\'viewport\' c>") Select Case e.Path Case "fclist.htm" Functions.Execute("fclist",e) End Select 老师为啥不好用呢
|
| -- 作者：有点蓝 -- 发布时间：2023/12/6 16:12:00 -- httprequest，和函数完整代码发上来 |
| -- 作者：xuzihang -- 发布时间：2023/12/6 16:36:00 -- 函数： Dim e As RequestEventArgs = args(0) Dim wb As New weui Select Case e.Path Case "fclist" wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>", True) Dim drs As List(Of DataRow) = DataTables("房源").SQLSelect("", 8, "[_Identify]") With ExWeUI.WebUI.AddExInfiniteScroll("pr01", "pullcallback", 0, 8) \'drs(drs.Count - 1)("_Identify")) Dim wb2 As New weui \'用于生成默认列表 With wb2.AddPanelGroup("", "pg1", "") For Each dr As DataRow In drs .Add("pn1" & dr("_Identify"), "日期: " & Format(dr("日期"), "yy年MM月dd日") & " 金额: " & dr("租售金"), "租期: " & dr("租期") & ", 付款方式: " & dr("付款方式") & ", 户型: " & dr("户型"), "./images/button.png") \'超链接 \' .Add("pn1" & dr("_Identify"), dr("类型") & dr("园区名") & dr("租售金") "& dr("租期") & ", " 付款方式: " & dr("付款方式") & ", 发布: " & Format(dr("日期"), "yy年MM月dd日" , ". / images / button.png") \'超链接 Next End With .Content = wb2.BuildHtml("pg1") \'设置默认显示的列表 wb.InsertHTML(.BuildHtml) End With wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml) wb.AppendHTML(" < script > initExWeUI(); < / script > ") e.WriteString(wb.Build) 这个是HttpRequest Dim sb As New StringBuilder \' sb.AppendLine("<meta name=\'viewport\' c>") Dim wb As New WeUI wb.title = "xxxxxx" Select Case e.Path Case "getExRadioGrou.htm" Functions.Execute("getExRadioGrou", e) Case "fclist.htm" Functions.Execute("fclist", e) End Select e.WriteString(wb.Build) e.WriteString(sb.ToString) [此贴子已经被作者于2023/12/6 16:40:19编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/12/6 16:48:00 -- HttpRequest事件改为 Select Case e.Path Case "getExRadioGrou.htm" Functions.Execute("getExRadioGrou", e) Case "fclist.htm" Functions.Execute("fclist", e) End Select |
| -- 作者：xuzihang -- 发布时间：2023/12/6 17:13:00 -- 老师要是混用的话是不是在函数里把e.WriteString去掉 |
| -- 作者：有点蓝 -- 发布时间：2023/12/6 17:16:00 -- 是的。总之一个页面最终只能调用一次e.WriteString 不过不建议混用
|
| -- 作者：xuzihang -- 发布时间：2023/12/6 17:17:00 -- 为什么啊，但 有的生成不了函数啊 |
| -- 作者：xuzihang -- 发布时间：2023/12/6 17:18:00 -- 那个速度快一点 |