主题：筛选不出姓名

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

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

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

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)

学会使用开发者工具调试。不然就上传实例

测试没有问题。什么步骤测试会有问题？

我测试没有问题，截图你的测试步骤