主题：筛选不出姓名

选择部门后，没有筛选出姓名
此主题相关图片如下：无标题.png

没有添加列表内容：http://www.foxtable.com/mobilehelp/topics/0100.htm

不建议使用这种方式，会把所有用户名称都暴露到网上。建议还是使用setAjaxOptions。其实最好连setAjaxOptions都不用，用户名自己输入。网页开发和客户端的开发很多时候理念是不一样的，不要一条路走到底

使用开发者工具调试看提示什么错误

不能生成正确的姓名

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:问题.rar

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

Select Case e.path

    Case "" '登录页面

        wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")

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

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

        End If

       

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

        cmd.commandtext="select 部门名称 as 部门 from g_用户管理"

        Dim 部门 As String=cmd.executereader().GetComboListString("部门")

        With wb.AddInputGroup("form1","ipg1","动态列表")

            With .AddSelect("部门","部门",部门)

                .Attribute = "onchange=""setAjaxOptions('姓名','usergroup.htm','部门',false)"""

            End With

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

        End With

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

            .Add("btn1", "确定", "submit")

        End With

        e.WriteString(wb.Build) '生成网页

    Case  "usergroup.htm"

        cmd.commandtext="select 用户姓名 as 姓名 from g_用户管理 where 部门名称='" & e.PostValues("部门") & "'"

        Dim pps As String = cmd.executereader().GetComboListString("姓名")

        e.WriteString(pps)

代码全部复制，还是8楼的截图错误。