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)

只有按钮才能触发表单的提交行为。list只能进行简单的跳转

可以借助js函数

.Add("ls0", "项目工程概况","查询","<a onclick='setCodes();'>gcgkcx.htm</a>") 'xmmc无法传递到gcgkcx.htm页面

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

form.submit();

}

[此贴子已经被作者于2021/2/8 16:39:22编辑过]

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

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

form.submit();

}

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

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

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

点击后，IP地址不对

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

.Add("ls0", "项目工程概况","查询","<a onclick='setCodes();'>gcgkcx.htm</a>")

老师，上述代码我也试了，也不行，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编辑过]

请仔细认真看看8楼的帮助，看看是怎么引用js文件的

建立一个文本文件，文件名为"calc.js"，文件内容为：

………………

  With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        wb.AppendHTML("<script src='./lib/calc.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
End Select

主题：WEUI筛选问题