想在下面代码中，做到一个功能，当操作时拨动逻辑开关为ON时，显示下面红色中间的控件，OFF时则不显示，刚学习网页，象这种没有提交按钮时，要怎么传值？
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then '生成增加订单网页
With wb.AddInputGroup("form1", "ipg1", "")
.AddInput("a0", "姓名∶", "text")
.AddInput("b0", "部门∶", "text")
End With
With wb.AddInputGroup("form1", "ipg0", "")
.AddSwitch("hy", "查看更多信息", False)
End With
If e.GetValues("hy") = "on" Then
With wb.AddInputGroup("form1", "ipg2", "")
.AddInput("a1", "电话∶", "number")
.AddInput("b1", "手机∶", "date")
.AddInput("c1", "邮件∶", "text")
.AddInput("d1", "地址∶", "text")
End With
End If
With wb.AddButtonGroup("form1", "btg1", False)
.Add("btn_zh", "增加", "submit")
.Add("btn_qx", "取消", "button").Attribute = """
End With
wb.AppendHTML("<script src='./lib/abc.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Else '保存新增的订单
Dim nms() As String = {"a0", "b0", "a1", "b1", "c1", "d1"}
Dim dr As Row = Tables("表A").AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
'显示完成提示,2妙手自动返回原来的页面
wb.AppendHtml("<meta http-equiv='refresh' c>", True)
wb.AppendHTML("<script src='./lib/abc.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End If
[此贴子已经被作者于2023/6/10 22:09:59编辑过]
加好友 
发短信
Post By：2023/6/10 22:09:00 [显示全部帖子]
此主题相关图片如下：112.png
