set AjaxOptions取不到值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'开始生成网页

Select Case e.path

Case "logon.htm" '登录页面

wb.AddPageTitle("","pageheader","XXX系统2022","XXXXXXXXXXXXX")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录

wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

End If

wb.AddForm("","form1","logon.htm")

With wb.AddInputGroup("form1","ipg1") ',"选择输入")

With .AddSelect("userdepart","部门","|"+ DataTables("DptStf").GetComboListString("Dpt","Dpt > ''"))

.Attribute = "on change=""set AjaxOptions('username','getusername.htm','userdepart',false)"""

End With

.AddSelect("username","姓名","")

.AddInput("password","密码","password")

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "登录", "submit")

End With

Case "getusername.htm"

Dim pps As String = ""

If e.PostValues.Count = 1 Then

pps = "|" & DataTables("DptStf").GetComboListString("Nam","Dpt = '" & e.PostValues("userdepart") & "'")

End If

e.WriteString(pps)

End Select

此主题相关图片如下：图片1.png

[此贴子已经被作者于2021/12/21 16:33:44编辑过]

Case "getusername.htm"

Dim pps As String = ""

If e.PostValues.Count = 1 Then

pps = "|" & DataTables("DptStf").GetComboListString("Nam","Dpt = '" & e.PostValues("userdepart") & "'")

End If

msgbox(pps) 有没有数据？

e.WriteString(pps)

End Select

我直接使用云服务测试，没看到弹出的消息图片点击可在新窗口打开查看

使用电脑浏览器调试，打开浏览器开发者工具看提示什么错误

没有提示什么错误，就是得不到值而已

现在，我暂时把“姓名”一栏

改成手填录入

没看到弹出的消息说明根本就没有提交到getusername.htm页面。使用浏览器开发者工具调试进weui.me.js文件，看看setAjaxOptions函数的执行情况，肯定会有警告或者错误提示的

<!DOCTYPE html>

<head>

</head>

<h1 class='fox_page_title'>AMR管理系统2022</h1>

<p class='fox_page_subtitle'>AMR Define Management Practice</p>

</div>

</select>

</div>

</select>

</div>

</div>

</div>

</form>

</body>

</html>

此主题相关图片如下：图片1.png

主题：set AjaxOptions取不到值？