以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  web按钮点击后不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148560)
--  作者：巷弄太过弯曲
--  发布时间：2020/4/10 9:59:00
--  web按钮点击后不执行
老师，请问我这个页面中 没有输入出勤人数应该会执行如图的界面，但是我没有输入出勤人数 点击确定没反应，请帮忙看一下

图片点击可在新窗口打开查看此主题相关图片如下：789.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：456.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:网页代码.txt
--  作者：浙江仔
--  发布时间：2020/4/10 10:09:00
--  
用这种方式比较好
http://www.foxtable.com/mobilehelp/topics/0083.htm
--  作者：有点蓝
--  发布时间：2020/4/10 10:18:00
--  
                Dim nms() As String = {"出勤人数"} \'不能为空的列名数组
                For Each nm As String In nms
                    ‘MessageBox.Show(e.PostValues(nm)) \'这里就已经出错了，因为PostValues没有"出勤人数"，下面代码当然不会执行，去掉再测试
                    If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
                        With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
                            .icon = "Warn" \'改变图标
                            .AddButton("btn11","返回").Attribute = ""
                        End With
                        e.WriteString(wb.Build)
                        Return"" \'必须返回
                    End If
                Next
--  作者：巷弄太过弯曲
--  发布时间：2020/4/10 10:21:00
--  
找到问题了解决了 谢谢