Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "登轮人员", "请选择登轮人员")
        Dim s As String = DataTables("列表项目").GetComboListString("人员名单")
        Dim Values() As String
        Values = s.split("|")
        If values.length > 0 Then
            For Index As Integer = 0 To values.Length - 1
                cdg.add("rd" & CStr(Index),values(index))
            Next
        End If
        wb.InsertHTML("form2", cdg.BuildHtml)

通过复选框，点击确认后通过js传值到接收函数，经测试e.postvalues接收到的值数量正确，但是值是空的，怀疑是黄色字体部分有错误。

For index As Integer = 0 To values.Length - 1
                  cdg.add(values(index), values(index))
            Next

这个id要是设置成字符就可以传值过去，但是如果用变量就显示无值，我是说数量没问题。

老师，能不能给个接收代码的示例，复选的这种

问题在zd_guanyuan和receive两个函数里

function test(id,value) {
    //console.log(id + \',\' + value);
    let obj = {id:id,value:value};
    if(value!="")
      {
    var result = sendAjaxJSON(obj,"getSr.htm","",false);
    document.getElementById("p1").innerHTML=result;
 }  
}

function testcancel(id) {
    //console.log(id);
    document.getElementById("p1").innerHTML="";
}
//图片上传
function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm(\'form2\',\'afterSubmit\');
}
//为了增加检疫要求保存，增加了form5，其余用法不变
function submitForm1(){
    show("tst1",2000);
    var result = submitAjaxForm(\'form5\',\'afterSubmit\');
}

function afterSubmit(result){
    hide("tst1");
    if (result==\'OK\') {
        show("tst2",500);
        //location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}

老师，再麻烦一下，如果是编辑状态，怎样能让打开网页的时候，就判断当前姓名时候之前已经被选中了，直接显示出来。