- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于AddSwitch (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117150)
-- 发布时间：2018/4/7 21:39:00
-- 关于AddSwitch
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加客户")
.AddInput("xm","姓名","text")
.AddInput("nl","年龄","number")
.AddSwitch("hy","会员",True)
.AddSwitch("vip","VIP客户")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加客户")
.AddInput("xm","姓名","text")
.AddInput("nl","年龄","number")
.AddSwitch("hy","会员",True)
.AddSwitch("vip","VIP客户")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
----------------------------------------
默认情况下，能否.AddSwitch("vip","VIP客户")，传回一个“false”的值，开关打开的时候传回一个“true”的值？
-- 发布时间：2018/4/8 9:08:00
--
是的。这种问题，你测试一次，不就知道了？很简单的。
-- 发布时间：2018/4/8 14:20:00
--
我试了一下，当手机屏幕点击按钮时候，按钮呈现绿色的时候，它会给出一个true的值，但当我点击按钮，按钮呈现灰色的时候，它什么值也没有。我希望按钮灰色的时候（no）能给一个值，绿色的时候（on）给另外一个值.
-- 发布时间：2018/4/8 16:12:00
--
这个控制不了。这个控件就是这样的，不选中是不会有值的
-- 发布时间：2018/4/8 17:13:00
--
那移动开发的时候，设及到逻辑列怎么赋值？
-- 发布时间：2018/4/8 17:40:00
--
判断有值是true就是逻辑列true；判断没有值，或者没有这个控件的键逻辑列就是false不就行了
-- 发布时间：2018/4/8 19:42:00
--
其实讲了半天就希望有点蓝老师给段代码。。。。。。。。
-- 发布时间：2018/4/8 19:52:00
--
Dim s As String = e.Values("vip")
If s = Nothing Then
msgbox(1)
ElseIf s = "true" Then
msgbox(2)
End If