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


  共有3318人关注过本帖树形打印复制链接

主题：AddCheckGroup模糊查询问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/11 20:56:00 [只看该作者]

代码被浏览器屏蔽了

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

注意大小写
function tongji4(v){
   document.getElementById("需求审核人").value=document.getElementById("需求审核人").value + ',' + v;
}
 回到顶部
帅哥哟，离线，有人找我吗？
leiguohui
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00 		  发帖心情 Post By：2020/10/12 12:28:00 [只看该作者]

谢谢蓝老师，现在可以了！
蓝老师：
还有个问题，选择时增加，取消选择时就从输入框删除，怎么写（现在，取消/选择都会写入输入框）

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/12 13:45:00 [只看该作者]

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

注意大小写
function tongji4(id,v){
if  (document.getElementById(id).checked){
   document.getElementById("需求审核人").value=document.getElementById("需求审核人").value + ',' + v;
}
else{
var s  = document.getElementById("需求审核人").value;
s = s.replace(v,"").replace(",,",",");
document.getElementById("需求审核人").value=s;
}
}
 回到顶部
帅哥哟，离线，有人找我吗？
leiguohui
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00 		  发帖心情 Post By：2020/10/12 15:43:00 [只看该作者]

厉害！可以了  谢谢蓝老师！
下面这个：AddDialog为什么关闭不了，是我写的有问题吗。老师帮忙看看！



    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
With .AddInputCell("姓名") '通过InputCell增加输入框
.AddLabel("姓名","姓名",0) '增加标签,0显示在左边
.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"
.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数
End With
            .AddInput("姓名","姓名","Text").Attribute = "
            .AddInput("需求审核人","姓名","Text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "统计", "button").Attribute= ""
            .Add("btn11", "统计1", "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 wb2 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 ary11 As String=  String.Join("|",gjs11.ToArray)
        Dim ary12() As String
        ary12 = ary11.split("|")
 wb2.InsertHTML("form1","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb2.AddCheckGroup("","rdg12","浏览器")
            For i As Integer = 0 To ary12.length-1
            .Add("bm1" & i, ary12(i)).Attribute = ""
            Next
        End With
wb2.InsertHTML("form1","</div>")
With wb.AddDialog("","dlg2", "请选择",wb2.Build)
            .AddButton("btnOK","确定")
.AddButton("btnOK11","确定").Attribute=""
        
            End With
        wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
        
        e.WriteString(wb.Build) '返回增加成功消息
     

js1
function tongji2(){
    var result = submitAjaxForm('form1','',false);
    document.getElementById("p1").innerHTML=result;
show('dlg2')
}

[此贴子已经被作者于2020/10/12 15:50:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/12 16:01:00 [只看该作者]

试试

   Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
With .AddInputCell("姓名") '通过InputCell增加输入框
.AddLabel("姓名","姓名",0) '增加标签,0显示在左边
.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"
.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数
End With
            .AddInput("姓名","姓名","Text").Attribute = "
            .AddInput("需求审核人","姓名","Text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "统计", "button").Attribute= ""
            .Add("btn11", "统计1", "button").Attribute= ""     
        End With

With wb.AddDialog("","dlg2", "请选择","")
            .AddButton("btnOK","确定")
.AddButton("btnOK11","确定").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 wb2 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 ary11 As String=  String.Join("|",gjs11.ToArray)
        Dim ary12() As String
        ary12 = ary11.split("|")
 wb2.InsertHTML("form1","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb2.AddCheckGroup("","rdg12","浏览器")
            For i As Integer = 0 To ary12.length-1
            .Add("bm1" & i, ary12(i)).Attribute = ""
            Next
        End With
wb2.InsertHTML("form1","</div>")

        wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
        
        e.WriteString(wb.Build) '返回增加成功消息
     

js1
function tongji2(){
    var result = submitAjaxForm('form1','',false);
    //document.getElementById("p1").innerHTML=result;

showDialog('dlg2','请选择',result)
}
 回到顶部
帅哥哟，离线，有人找我吗？
leiguohui
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00 		  发帖心情 Post By：2020/10/12 16:19:00 [只看该作者]

蓝老师：没有这句好像，显示出来的不是筛选的内容

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/12 16:21:00 [只看该作者]

不需要，在js里设置的showDialog('dlg2','请选择',result)

 回到顶部
帅哥哟，离线，有人找我吗？
leiguohui
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00 		  发帖心情 Post By：2020/10/12 16:52:00 [只看该作者]

蓝老师：好像不可以，打开没有筛选数据-只有两个按钮
[此贴子已经被作者于2020/10/12 16:53:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/12 16:54:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
leiguohui
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：78 积分：769 威望：0 精华：0 注册：2017/5/22 10:51:00 		  发帖心情 Post By：2020/10/12 16:58:00 [只看该作者]

HTTP：

        Dim wb As New weui

        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
With .AddInputCell("姓名") '通过InputCell增加输入框
.AddLabel("姓名","姓名",0) '增加标签,0显示在左边
.AddInput("姓名","Text",1).Placeholder = "可手动输入,以" & "/" & " 隔开"
.AddVcodeButton("hym","模糊输入",2).Attribute = "" '调用js函数
End With
            .AddInput("姓名","姓名","Text").Attribute = """
            .AddInput("需求审核人","姓名","Text")
        End With

With wb.AddDialog("","dlg2", "请选择","")
            .AddButton("btnOK","确定")
.AddButton("btnOK11","确定").Attribute=""
        
            End With

        With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            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 wb2 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("|")
 wb2.InsertHTML("form1","<div id='div1' style='overflow-y:auto;height:300px'>")
        With wb2.AddCheckGroup("","rdg12","浏览器")
            For i As Integer = 0 To  ary12.length-1
                .Add("bm1" & i, ary12(i)).Attribute = ""
            Next
        End With
wb2.InsertHTML("form1","</div>")     
        wb.AppendHTML("<script src='./lib/tj4.js'></script>") '引入脚本文件
        
        e.WriteString(wb.Build) '返回增加成功消息


JS1：
function tongji2(){
    var result = submitAjaxForm('form1','',false);
    //document.getElementById("p1").innerHTML=result;
//show('dlg2')
showDialog('dlg2','请选择',result)
}

[此贴子已经被作者于2020/10/12 17:08:42编辑过]
 回到顶部
总数 28 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询