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

复选控件是这样的，

    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