WEUI筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师，下面代码，为什么用按钮（submit)能达到按XMMC关键字能筛选出目标行，

换成用AddListGroup就不行？？

Dim wb As New weui

Select Case e.Path

'------------20210208

Case "zbkcx.htm"

wb.AddForm("","form3","gcgkcx.htm")

With wb.AddInputGroup("form3","zbkipg","项目名称关键字筛选")

.AddInput("xmmc","项目名称","text").Placeholder = "请输入项目关键字"

wb.AppendCookie("xmmc", e.PostValues("xmmc")) '将值写入cookie中

End With

'----------list 20210208

With wb.AddListGroup("", "list0","<label style='color:#00CD00'> 1. 工程概况")

.Add("ls0", "项目工程概况","查询","gcgkcx.htm") 'xmmc无法传递到gcgkcx.htm页面

End With

With wb.AddButtonGroup("form3","zbkbtg",False)

.Add("zbkbtn1", "返回", "","home.htm")

.Add("zbkbtn2", "确定","sumbit") '操动这里能正确筛选出目标行

End With

'--------项目工程概况·查询

Case "","gcgkcx.htm"

wb.AddForm("zbkcx.htm","form3","gcgkcx.htm")

If e.PostValues("xmmc") = "" Then

'If e.PostValues.Count = 0 Then

With wb.AddMsgPage("","msgpage","异常操作","未输入项目名称关键字")

.icon = "Warn" '改变图标

.AddButton("cxsxbtn","重新筛选","zbkcx.htm").kind = 2

End With

Else

Dim flt As String

If e.PostValues.ContainsKey("xmmc") Then

flt = flt & "项目名称 like '%" & e.PostValues("xmmc") & "%'" '模糊查询

End If

Dim cmd As new SQLCommand

省略......

End If

End Select

e.WriteString(wb.Build)

老师，还请再看看，您昨天指导的代码，

function setCodes(){
var form = document.getElementById('form3');

form.submit();

}

我在web/lib生成了一个.js文件

但是 '.Add("ls0", "项目工程概况","查询","<> gcgkcx.htm") 生成的网页，这一栏有错误

dvubb 此主题相关图片如下：图1.jpg

点击后，IP地址不对

此主题相关图片如下：图2.jpg

老师，上述代码我也试了，也不行，IP地址不对，打不开

此主题相关图片如下：图3.jpg

上传测试实例，请老师帮忙看看，想实现listgroup，点击筛选表单

下载信息 [文件大小：下载次数： ]
点击浏览该文件:weui测例.rar

老师，我原来已经在Web目录下做了lib目录的文本文件setCodes.js

function setCodes(){
var form = document.getElementById('form3');

form.submit();

}

HttpRequest 代码

With wb.AddListGroup("", "list1","<label style='color:#00CD00'> 1. 工程概况")

.Add("ls1", "项目工程概况", "查询", "<a > gcgkcx.htm </a>") 'list无法引入.js执行zbkcx.htm form3的submit 跳转到gcgkcx.htm

End With

[此贴子已经被作者于2021/2/18 11:41:39编辑过]

主题：WEUI筛选问题