如何用js实现多选择框并带模糊查询显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想实现如下效果

页面duoxuan1代码预览地址http://47.110.249.95/duoxuan1.htm

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz1.txt")

wb.InsertHTML(div)

e.WriteString(wb.Build) '生成网页

运行效果

此主题相关图片如下：12121.gif

页面duoxuan代码预览地址http://47.110.249.95/duoxuan.htm

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")

wb.InsertHTML("<script>" & vars("xingmingduoxuan") & "</script>")

If e.PostValues.Count = 0 Then

wb.AddPageTitle("","ph1","稿件登记")

wb.AddForm("","form1","addgaojian.htm")

With wb.AddInputGroup("form1","ipg11","内容信息")

With wb.AddInputGroup("form1","ipg1","文章作者")

.AddInput("文章作者","文章作者","text")

wb.InsertHTML("form1",div)

End With

With wb.AddInputGroup("form1","ipg7","文章内容")

With .AddTextArea("文章内容",8)

End With

With wb.AddButtonGroup("form1","btg1",False)

.Add("btn1", "确定更新", "submit")

.Add("btn2", "取消更新", "submit").FormAction = "default.htm"

End With

e.WriteString(wb.Build) '生成网页

End If

运行效果

此主题相关图片如下：121212.gif

没有办法显示可选项麻烦老师们看看指导下谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qz.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qz1.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:xingmingduoxuan.txt

xingmingduoxuan.txt是js内容

[此贴子已经被作者于2021/2/7 14:41:35编辑过]

主题：如何用js实现多选择框并带模糊查询显示