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

老师，可以在AddCheckGroup的右侧增加一个按钮或标签吗？

Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "在岗人员", "请选择考勤人员")

我是想做个全选按钮，放01那个位置，能否实现，不行就放下面吧

请老师告知一下方法，谢谢！

 

我用这种方式看起来更美观，

        With wb.AddPreview("","pv2","","")                                    
            .AddButton("全选", "", 1, "")  
            .Addbutton("反选", "", 0, "")
       End With

在请教一下老师，我添加了两个按钮，一个全选，一个反选的代码怎么写呢？

 

此主题相关图片如下：qq截图20220516144429.jpg

Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "cgp", "请选择考勤人员")

老师，复选框控件为cgp

check JS函数如下：

function check(t){
    document.getElementById("cgp").checked = t == '1'
}

 

'全选及反选按钮，哪儿有问题？
With wb.AddPreview("","pv1","","")                         
     .Addbutton("全选", "", 1, "onclick='check(""1"")'")  
     .Addbutton("反选", "", 0, "onclick='check(""0"")'")
End With

复选控件是这样的，

    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

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

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

内部函数如下：

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;
    }
}

老师，这样一个按钮就可以全选，反选，分两个按钮怎么写？两个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;
    }
}

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