Foxtable(狐表)用户栏目专家坐堂 → AddCheckGroup传值问题


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

主题:AddCheckGroup传值问题

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
AddCheckGroup传值问题  发帖心情 Post By:2022/5/9 19:41:00 [只看该作者]

 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接收到的值数量正确,但是值是空的,怀疑是黄色字体部分有错误。


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有问题。怎么接收数据的?

增加复选列表项的语法是:

Add(ID, Text)
Add(ID, Text, Checked)

 ID  列表项ID。
 Text  复选列表项的文本内容。
 Checked  逻辑型,可选参数,复选列表项默认是否勾选。


复选列表项的属性有:

 Value  字符型,勾选后传递给服务端的值,如果不设置,将传递ID值给服务端。
 Enabld  逻辑型,设置为False,将无法勾选此列表项。

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/5/9 20:11:00 [只看该作者]

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

 

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

 

[此贴子已经被作者于2022/5/9 20:36:01编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

values(index)一样是字符串来的。我测试没有问题。

自己调试一下前端和接收的数据。不会调试就上传实例

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/5/9 20:50:00 [只看该作者]

以下是引用有点蓝在2022/5/9 20:41:00的发言:
values(index)一样是字符串来的。我测试没有问题。

自己调试一下前端和接收的数据。不会调试就上传实例

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:5544.rar


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看到有接收这些数据的代码。还是那句话,不会调试就上传实例

For Each key As String In e.PostValues.Keys
    MsgBox(key)
Next 

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/5/9 21:55:00 [只看该作者]

以下是引用有点蓝在2022/5/9 20:58:00的发言:
没看到有接收这些数据的代码。还是那句话,不会调试就上传实例

For Each key As String In e.PostValues.Keys
    MsgBox(key)
Next 

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


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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
附件  发帖心情 Post By:2022/5/9 22:07:00 [只看该作者]



以下内容是专门发给有点蓝浏览

 

问题在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);
    }
}


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


        If values.length > 0 Then
            For Index As Integer = 0 To values.Length - 1
                cdg.add("登轮人员" & CStr(Index),values(index)).value = values(index)

            Next
        End If

接收
dim s as string
For Each key As String In e.PostValues.Keys
    if key like "登轮人员*" then s = s & "," & e.PostValues(key)
Next 
msgbox(s)


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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/5/9 22:52:00 [只看该作者]

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


 回到顶部
总数 11 1 2 下一页