关于填入用户名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

wb.DeleteCookie("password")

wb.InsertHTML("<meta http-equiv='Refresh' c>") '然后直接跳转到登录页面

Case "addnew.htm"

        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","客户资料")
                .AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
                .AddInput("年龄","年龄","number")

.AddSelect("用户名","用户名",e.Cookies("username"))
                .AddInput("日期","日期","date")
            End With
            With wb.AddCheckGroup("form1","偏好","品牌偏好")
                .Add("苹果","苹果")
                .Add("华为","华为")
                .Add("三星","三星")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定", "submit")
            End With
            e.WriteString(wb.Build)
        Else
            Dim nms() As String = {"姓名","年龄","日期","级别"} '不能为空的列名数组
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
                    With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return '必须返回
                End If
            Next
            nms = New String() {"姓名","年龄","日期","级别","停权","学历"} '重新定义了nms数组,增加了两列.
            Dim dr As DataRow = DataTables("员工").AddNew()
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    dr(nm) = e.PostValues(nm)
                End If
            Next
            '以下代码处理品牌复选列表项
            Dim pp As String
            nms = New String() {"苹果","华为","三星"} '将nms重新定义为品牌数组
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then '不能省略Trim
                    pp = pp & nm & ","
                End If

这样也不行，

主题：关于填入用户名