- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动设计，使用部门可以弹出所在部门列表，但是提示报错，然后无法选择使用人列表，求解！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137616)
-- 发布时间：2019/7/10 23:35:00
-- 移动设计，使用部门可以弹出所在部门列表，但是提示报错，然后无法选择使用人列表，求解！
移动设计，使用部门可以弹出所在部门列表，但是提示报错，然后无法选择使用人列表，求解！
此主题相关图片如下：1.png
此主题相关图片如下：2.png
麻烦修正一下红色部分代码，谢谢
实现选择使用部门后，使用人弹出对应所在部门下的所有人员名单 备选！
getname.htm页面代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "getname.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
vals = "|" & DataTables("人员表").GetComboListString("姓名","所在部门=\'" & e.PostValues("使用部门") & "\'")
End If
e.WriteString(vals)
End Select
index。htm页面代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "index.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","index.htm")
With wb.AddInputGroup("form1","ipg1","固定资产资料")
红色部分代码因特殊原因不能完整显示，请参照图对比！
With .AddSelect("使用部门","使用部门","|" & DataTables("人员表").sqlGetComboListString("所在部门"))
.Attribute = """
End With
With .AddSelect("使用人","使用人","")
.Attribute = """
End With
此主题相关图片如下：企业微信截图_15628082238763.png
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else \'
\'保存并生成增加成功提示页面
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
.AddButton("btn1","继续增加","index.htm")
End With
End With
End If
e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2019/7/11 9:25:35编辑过]
-- 发布时间：2019/7/11 9:45:00
--
把使用人的Attribute 设置移动到使用部门的Attribute 中
此主题相关图片如下：1.png