不能生成正确的姓名

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)