以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddCheckGroup值数量不对  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177581)

--  作者:fendouww
--  发布时间:2022/5/27 11:21:00
--  AddCheckGroup值数量不对

图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2022-05-27_11-16-54.png
图片点击可在新窗口打开查看
AddCheckGro
图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2022-05-27_11-17-52.png
图片点击可在新窗口打开查看
up我选了7个,但传递时永远会少一个,请问是什么原因?而且我在本地测试时没问题,一发布放到服务器上就出现此问题,再三检查过发送和接收的代码是没问题的,感觉遇到玄学了

--  作者:有点蓝
--  发布时间:2022/5/27 11:31:00
--  
代码呢?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:fendouww
--  发布时间:2022/5/27 11:42:00
--  
这是增加的
            With wb.AddCheckGroup("form1", "rdg1", "不合格问题归类")
                cm = Vars("仓检记录不合格问题归类").trim("|").Split("|")
                cm1 = dr("不合格问题归类")             
                For i As Integer = 0 To cm.Length - 1
                    If cm1 > "" AndAlso cm1 Like "*" & cm(i) & "*" Then
                        .Add(cm(i), cm(i), True).Enabled = bj1
                    Else
                        .Add(cm(i), cm(i)).Enabled = bj1
                    End If
                Next 
            End With 

提交是用的JS

function submitForm(){
document.cookie="cjtj=0"
    show("tst1");
    var result = submitAjaxForm(\'form1\',\'afterSubmit\');
}
function afterSubmit(result){
    hide("tst1");
    if (result==\'OK\') {
        showDialog(\'dlg2\',\'提交成功\',\'请返回查询页\');
    }
    else{
        showDialog(\'dlg1\',\'提交失败\',result);
    }
}

--  作者:有点蓝
--  发布时间:2022/5/27 11:52:00
--  
控件id除了下划线,不能有斜杆等其它特殊符号
--  作者:fendouww
--  发布时间:2022/5/27 13:39:00
--  
我已经修改了代码,但还是少了一个,就是最后一个的ID传不过去

            With wb.AddCheckGroup("form1", "rdg1", "不合格问题归类")
                cm = Vars("仓检记录不合格问题归类").trim("|").Split("|")
                cm1 = dr("不合格问题归类")             
                For i As Integer = 0 To cm.Length - 1
                    If cm1 > "" AndAlso cm1 Like "*" & cm(i) & "*" Then
                        With .Add("cm" & i, cm(i), True)
                            .Enabled = bj1
                            .Value = cm(i)
                        End With
                    Else
                        With .Add("cm" & i, cm(i))
                            .Enabled = bj1
                            .Value = cm(i)
                        End With
                    End If
                Next 
            End With 

--  作者:有点蓝
--  发布时间:2022/5/27 13:54:00
--  
打开浏览器开发者工具,分析一下前端网页
--  作者:fendouww
--  发布时间:2022/5/27 14:02:00
--  
经测试发现,是跟钉钉有关系,我使用的钉钉的内置应用时就会出现少了一个,电脑浏览器是正常的,跟钉钉有关?
--  作者:有点蓝
--  发布时间:2022/5/27 14:08:00
--  
这个我也不清楚了。使用手机浏览器,微信等测试有没有问题
--  作者:fendouww
--  发布时间:2022/5/27 14:13:00
--  
其余浏览器我都试过了,就钉钉有问题