Foxtable(狐表)用户栏目专家坐堂 → web中添加按钮或标签


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

主题:web中添加按钮或标签

帅哥哟,离线,有人找我吗?
cd_tdh
  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/16 15:33:00 [只看该作者]

复选控件是这样的,

    Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & _Userxmmc & "' and 在岗状态 = '在岗'")
    If drs.Count > 0 Then
        For Each dr As DataRow In drs
            Dim s As String = dr("姓名")
            If s.Length = 2 Then
                Dim s1 As String = s.PadRight(3)
                cdg.add("考勤人员_" & dr("_Identify"),s1 & " ").value = dr("姓名")
            Else
                cdg.add("考勤人员_" & dr("_Identify"),s).value = dr("姓名")
            End If
        Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 15:42:00 [只看该作者]

学一下js里querySelectorAll的用法:https://www.baidu.com/baidu?ie=UTF-8&word=querySelectorAll

获取页面里所有"考勤人员_"开头的控件

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/16 16:23:00 [只看该作者]

没研究出来,请老师写一个学一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 16:40:00 [只看该作者]


let eles = document.querySelectorAll("input[id^='考勤人员_']");
    for (let i = 0, k = eles.length; i < k; i++) {
        eles[i].checked=true;
    }

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/16 17:14:00 [只看该作者]

还得请老师看看,哪儿不对

内部函数如下:

Dim e As object = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
If e.PostValues.Count = 0 Then
    wb.AddForm("","form1","Rename_checking.htm")
    With wb.AddInputGroup("form1","考勤日期","请选择考勤日期")
        With .AddInput("考勤日期","考勤日期","date")
        End With
    End With
    Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "cgp", "请选择考勤人员")
    Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & _Userxmmc & "' and 在岗状态 = '在岗'")
    If drs.Count > 0 Then
        For Each dr As DataRow In drs
            Dim s As String = dr("姓名")
            If s.Length = 2 Then
                Dim s1 As String = s.PadRight(3)
                cdg.add("考勤人员_" & dr("_Identify"),s1 & "&emsp;").value = dr("姓名")
            Else
                cdg.add("考勤人员_" & dr("_Identify"),s).value = dr("姓名")
            End If
        Next
        wb.InsertHTML("form1", cdg.BuildHtml)
        wb.AppendHTML("<script>initExWeUI();</script>") '需要注意的是,这里不需要使用true参数

        wb.AppendHTML("<script src='./lib/check.js'></script>") '引入JS文件
        '添加全选及反选按钮
        With wb.AddPreview("form1","pv1","","")
            .Addbutton("全选", "", 1, "onclick='check()'")
            .Addbutton("反选", "", 0, "onclick='check()'")
        End With

..............

check JS函数如下:

 

function check(){
let eles = document.querySelectorAll("input[id^='考勤人员_']");
    for (let i = 0, k = eles.length; i < k; i++) {
        eles[i].checked=true;
    }
}


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 17:20:00 [只看该作者]

我只是举例而已,未必是实际用法,不要只会抄,理解一下代码,结合前面的用法应用

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/17 9:29:00 [只看该作者]

老师,这样一个按钮就可以全选,反选,分两个按钮怎么写?两个JS分开吗?

function check(){
let eles = document.querySelectorAll("input[id^='考勤人员_']");
    for (let i = 0, k = eles.length; i < k; i++) {
        eles[i].checked=!eles[i].checked;
    }
}


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/17 9:32:00 [只看该作者]

            .Addbutton("全选", "", 1, "onclick='check(""1"")'")
            .Addbutton("反选", "", 0, "onclick='check(""0"")'")


function check(a){
let eles = document.querySelectorAll("input[id^='考勤人员_']");
    for (let i = 0, k = eles.length; i < k; i++) {
        eles[i].checked= (a=='1');
    }
}

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/17 9:41:00 [只看该作者]

这样反选是取消了所有,不是反选的意思拉

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/17 10:03:00 [只看该作者]

哦,分2个js函数

 回到顶部
总数 27 上一页 1 2 3 下一页