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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddCheckGroup模糊查询问题

共有4757人关注过本帖树形打印复制链接主题：AddCheckGroup模糊查询问题

leiguohui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

AddCheckGroup模糊查询问题 发帖心情

Post By：2020/10/7 12:06:00 [只看该作者]

各位老师：
AddCheckGroup复选框可以做模糊查询的吗
类似下面的增加一个模糊查询功能
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132228&authorid=0&page=0&star=1

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/7 13:50:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=157191

leiguohui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

Post By：2020/10/7 17:00:00 [只看该作者]

蓝老师：这个我会，就是同一个网页不知道参数怎么传递

leiguohui

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

Post By：2020/10/7 17:08:00 [只看该作者]

Select Case e.Path

Case "test.htm", ""

Dim wb As New WeUI

With wb.AddInputGroup("","ipg1","项目成员")

With .AddInputCell("审核人") '通过InputCell增加输入框

.AddLabel("姓名","姓名",0) '增加标签,0显示在左边

.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"

.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数

End With

.AddInput("需求审核人","姓名","Text")

End With

Dim wb21 As New weui

wb21.AddForm("","form3","test.htm")

wb21.InsertHTML("form3","<div id='div12' style='overflow-y:auto;height:300px'>")

'''

Dim lk As String = Nothing

Dim txt As String = e.PostValues("姓名") ‘这个参数不会传，通过上面的姓名输入框

txt = "'%" & txt & "%'"

Dim gjs11 As List(of String) = DataTables("员工资料").SQLGetValues("姓名","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ds1 As Integer =DataTables("员工资料").SQLCompute("Count([姓名])","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ary11 As String= String.Join("|",gjs11.ToArray)

Dim ary12() As String

ary12 = ary11.split("|")

'''

With wb21.AddCheckGroup("form3","rdg12","浏览器")

For i As Integer = 0 To ds1-1

.Add("bm1" & i, ary12(i))

End With

wb21.InsertHTML("form3","</div>")

'''

With wb.AddDialog("","dlg2", "请选择",wb21.Build)

'''

.AddButton("btnCancel11","取消").Kind = 1

Dim str As String = ""

str &= "var s = '';"

For i As Integer = 0 To ds1-1

str &= "var c" & i & " = document.getElementById('bm1" & i & "').checked;"

str &= "if(c" & i & "){s = s + '," & ary12(i) & "'};"

'''

str &= "需求审核人.value = s.substring(1)"

.AddButton("btnOK11","确定").Attribute=" & str & """"

'''

End With

wb.AppendHTML("<script src='./lib/z.js'></script>") '引入脚本文件

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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/7 17:17:00 [只看该作者]

如果是ajax，需要使用不同页面，参考:http://www.foxtable.com/mobilehelp/topics/0110.htm

leiguohui

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

Post By：2020/10/7 17:27:00 [只看该作者]

那复选框可以根据点击先后顺序写入到输入框吗

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/7 17:39:00 [只看该作者]

这个需要完全使用js控制，添加一个标记控件：http://www.foxtable.com/mobilehelp/topics/0127.htm

然后给每一个复选框加上js点击事件，勾选的时候往标记控件后面添加复选框值。然后提交标记控件的值作为选择结果

leiguohui

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

Post By：2020/10/8 21:13:00 [只看该作者]

蓝老师：
第一步明白了，（如果能用Dialog就好了）

第二部选择复选框，内容填写回"需求审核人" 输入框，不会写、能麻烦您帮忙教下吗

http：

Case "test.htm"

Dim wb As New weui

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

With wb.AddInputGroup("form1","ipg1","销售统计")

.AddInput("姓名","姓名模糊查询","Text")

.AddInput("需求审核人","姓名选择","Text")

End With

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

.Add("btn1", "统计", "button").Attribute= ""

End With

wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面

wb.AppendHTML("<script src='./lib/tj3.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

Case "tongji.htm"

Dim wb As New weui

Dim lk As String = Nothing

Dim txt As String = e.PostValues("姓名")

txt = "'%" & txt & "%'"

Dim gjs11 As List(of String) = DataTables("员工资料").SQLGetValues("姓名","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ds1 As Integer =DataTables("员工资料").SQLCompute("Count([姓名])","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ary11 As String= String.Join("|",gjs11.ToArray)

Dim ary12() As String

ary12 = ary11.split("|")

With wb.AddCheckGroup("","rdg12","浏览器")

For i As Integer = 0 To ds1-1

.Add("bm1" & i, ary12(i))

End With

e.WriteString(wb.Build)

JS：

function tongji2(){

var result = submitAjaxForm('form1','',false);

document.getElementById("p1").innerHTML=result;

}

[此贴子已经被作者于2020/10/8 21:13:01编辑过]

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/9 10:42:00 [只看该作者]

With wb.AddCheckGroup("","rdg12","浏览器")

For i As Integer = 0 To ds1-1

.Add("bm1" & i, ary12(i)).Attribute = "onclick='xxx函数(""" & ary12(i) & """)'"

End With

function xxx函数(v){

document.getElementById("需求审核人").value=document.getElementById("需求审核人").value + ',' + v;

}

[此贴子已经被作者于2020/10/11 20:54:29编辑过]

leiguohui

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00

Post By：2020/10/11 15:10:00 [只看该作者]

蓝老师：好像没反应，是我写错了吗

Case "test.htm"

Dim wb As New weui

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

With wb.AddInputGroup("form1","ipg1","销售统计")

.AddInput("姓名","姓名模糊查询","Text")

.AddInput("需求审核人","姓名选择","Text")

End With

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

.Add("btn1", "统计", "button").Attribute= ""

End With

wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的页面

wb.AppendHTML("<script src='./lib/tj3.js'></script>") '引入脚本文件

wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

Case "tongji.htm"

Dim wb As New weui

Dim lk As String = Nothing

Dim txt As String = e.PostValues("姓名")

txt = "'%" & txt & "%'"

Dim gjs11 As List(of String) = DataTables("员工资料").SQLGetValues("姓名","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ds1 As Integer =DataTables("员工资料").SQLCompute("Count([姓名])","openid <> '" & lk & "'and 姓名 like " & txt )

Dim ary11 As String= String.Join("|",gjs11.ToArray)

Dim ary12() As String

ary12 = ary11.split("|")

With wb.AddCheckGroup("","rdg12","浏览器")

For i As Integer = 0 To ds1-1

.Add("bm1" & i, ary12(i)).Attribute = ""

End With

e.WriteString(wb.Build)

JS1：

function tongji2(){

var result = submitAjaxForm('form1','',false);

document.getElementById("p1").innerHTML=result;

}

JS2：

function tongji4(){

document.getElementById("需求审核人").value=document.getElementById("需求审核人").value + ',' + v;

}

下一主题 >> << 上一主题

总数 28 1 2 3 下一页

主题：AddCheckGroup模糊查询问题