以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- weui中的复选列表框和逻辑开关如何控制 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98366) |
-- 作者:guning008 -- 发布时间:2017/3/28 17:43:00 -- weui中的复选列表框和逻辑开关如何控制 遇到两个类似的问题。 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 求老师指点。
|
-- 作者:有点色 -- 发布时间:2017/3/28 18:25:00 -- 第三个参数设置开关
http://www.foxtable.com/mobilehelp/scr/0049.htm
认认真真看实例 http://www.foxtable.com/mobilehelp/scr/0053.htm
|
-- 作者:guning008 -- 发布时间: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 \'下面开始该公司的项目编辑 |