| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- AddSwitch逻辑开关读不到逻辑字段值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161549) |
| -- 作者：wh420 -- 发布时间：2021/3/22 11:33:00 -- AddSwitch逻辑开关读不到逻辑字段值 通过EDIT.HTM编辑页面读取逻辑列“permit"的值读不出来，不管记录值FALSE还是TRUE读出来的都是默认的FALSE，怎么回事？ With .AddSwitch("permit","<img class=\'icon\' src=\'/images/money.ico\'> 授权") .Value =dr("permit") .attribute="style=\'color: red;text-align: left;font-size: 14px;\'" End With |
| -- 作者：有点蓝 -- 发布时间：2021/3/22 11:37:00 -- With .AddSwitch("permit","<img class=\'icon\' src=\'/images/money.ico\' /> 授权", dr("permit")) .attribute="style=\'color: red;text-align: left;font-size: 14px;\'" End With |
| -- 作者：wh420 -- 发布时间：2021/3/22 14:15:00 -- 如何正常保存permit逻辑字段的值到数据库中？当开关为ON时数据库能保存为TURE，当开关为关闭时则数据库中却为空null Dim dr As DataRow = DataTables("WXUsers").SQLFind("[OpenId]=\'" & PrimaryKey & "\'" ) If dr IsNot Nothing Then Dim nms() As String = {"nickname","city","subscribe_time","permit"} For Each nm As String In nms dr(nm) = e.PostValues(nm) Next dr.Save() DataTables("WXUsers").load() |
| -- 作者：有点蓝 -- 发布时间：2021/3/22 14:26:00 -- 逻辑列另外单独处理 f dr IsNot Nothing Then Dim nms() As String = {"nickname","city","subscribe_time"} For Each nm As String In nms dr(nm) = e.PostValues(nm) Next if e.PostValues.ContainsKey("permit") andalso e.PostValues("permit")="on" Then dr("permit") = true else dr("permit") = false end if dr.Save() |
| -- 作者：wh420 -- 发布时间：2021/3/22 15:34:00 -- 收到，问题解决。谢谢老师 |