Foxtable(狐表)用户栏目专家坐堂 → weui中的复选列表框和逻辑开关如何控制


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

主题:weui中的复选列表框和逻辑开关如何控制

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


加好友 发短信
等级:婴狐 帖子:44 积分:600 威望:0 精华:0 注册:2016/10/1 11:15:00
weui中的复选列表框和逻辑开关如何控制  发帖心情 Post By:2017/3/28 17:43:00 [只看该作者]

遇到两个类似的问题。
1. 我设计了一个公司信息编辑页面,代码如下,上下文太长就没有贴出来
With wb.AddInputGroup("partnerform","ipg1",iif(e.GetValues.ContainsKey("cid"),"Edit Partner","Add Partner")) 
    .AddInput("Company","Company","text").Value = pr("Company")   ‘这一项是编辑公司名称信息,对应后台数公司据表中的Company列,这里没有问题。
    .AddInput("Note","Note","text").Value = pr("Note") ‘这一项是编辑公司备注信息,对应后台数公司据表中的Note列,这里没有问题。
    .AddSwitch("MNDA","MNDA",False).Attribute = "Checked = '" & pr("MNDA") & "'" ‘这一项是编辑公司MNDA信息,对应后台数公司据表中的MNDA列,问题就出在这里了。我尝试了如下设置,但是结果都是无法通过后台数据表中逻辑列的值来控制网页上面的逻辑开关。
End With

似乎这个逻辑开关不会去读取后台数据表中的数据一样,但是上面两个输入框却都读取了后台的数据。我用开发者工具看到的代码是读取了True或者False的,但是网页上面总是显示开关是打开状态。


下面的是我添加了一组复选列表框,类似的问题是无论后台数据表中多值列是否包含指定信息,网页端都是显示未勾选。


        With wb.AddCheckGroup("partnerform","ipg5","Responsible Person(s)")
            .Add("p1","JM").value = iif(mr("Person").Contains("JM"),"on","off")
            .Add("p1","RM").value = iif(mr("Person").Contains("RM"),True,False)
            .Add("p1","RS").value = iif(mr("Person").Contains("RS"),True,False)
            .Add("p1","SG").value = iif(mr("Person").Contains("SG"),True,False)
            .Add("p1","SS").Value = iif(mr("Person").Contains("SS"),True,False)
        End With

求老师指点。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/28 18:25:00 [只看该作者]

 第三个参数设置开关

 

http://www.foxtable.com/mobilehelp/scr/0049.htm

 

 认认真真看实例 http://www.foxtable.com/mobilehelp/scr/0053.htm

 


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


加好友 发短信
等级:婴狐 帖子:44 积分:600 威望:0 精华:0 注册:2016/10/1 11:15:00
  发帖心情 Post By:2017/3/28 19:10:00 [只看该作者]

多谢色老师指点,我之前理解错了,以为第三个参数只是设定逻辑开关或者复选框的默认选中状态,就像是foxtable中的逻辑列默认是否选中一样。而网页上的是不同的,从数据表中传递的数据就是应该放在第三个参数中,才能控制它。

我修改过的代码如下,现在好了,放在这里给其他犯类似错误的同学参考吧。

        With wb.AddCheckGroup("partnerform","ipg5","Responsible Person(s)")
            .Add("p1","JM",iif(mr("Person").Contains("JM"),True,False)
            .Add("p1","RM",iif(mr("Person").Contains("RM"),True,False))
            .Add("p1","RS",iif(mr("Person").Contains("RS"),True,False))
            .Add("p1","SG",iif(mr("Person").Contains("SG"),True,False))
            .Add("p1","SS",iif(mr("Person").Contains("SS"),True,False))
        End With

With wb.AddInputGroup("partnerform","ipg1",iif(e.GetValues.ContainsKey("cid"),"Edit Partner","Add Partner")) '如果GetValues传递了公司编码,则显示编辑订单,否则显示新增订单.
    .AddInput("Company","Company","text").Value = pr("Company")
    .AddInput("Note","Note","text").Value = pr("Note")
    .AddSwitch("MNDA","MNDA",iif(pr("MNDA"),True,False))
End With '下面开始该公司的项目编辑


 回到顶部