\'这两行依次弹出   设备类型   True    cpu   false   为什么没有post过来呢?

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

        wb.Title="终端管理表数据提交"

        wb.InsertHTML("<div data-theme=\'g\' data-role=\'page\' data-position=\'fixed\'>")     

If e.PostValues.Count = 0 Then \'生成增加调查表网页

    wb.AddForm("","form1","PcManage.htm").Attribute=""             

    With wb.AddInputGroup("form1","ipg1","资料")       \'ipg1 和下面的ipg2 ipg3名称一定不能重,重了就弹不出网页

            .AddSelect("设备类型","设备类型","笔记本|台式机|一体机")

            .AddInput("CPU","CPU","Text")

            .AddInput("内存","内存","Text")

            .AddInput("所在楼","所在楼","Text")

            .AddInput("所在科室","所在科室","Text")

            .AddInput("所在房间","所在房间","Text")

            .AddInput("电脑用途","电脑用途","Text")

            .AddInput("常用人","CPU","Text")

            .AddInput("外网计算机名","外网计算机名","Text")

            .AddInput("外网IP","外网IP","Text")

            .AddInput("外网MAC","外网MAC","Text")

            .AddInput("内网计算机名","内网计算机名","Text")

            .AddInput("内网IP","内网IP","Text")

            .AddInput("内网MAC","内网MAC","Text")

            .AddInput("启用时间","启用时间","Text")

            .AddInput("软件环境","软件环境","Text")

            .AddInput("资产归属","资产归属","Text")

    End With

    With wb.AddInputGroup("form1","ipg2","备注")

            .AddTextArea("备注",3).Placeholder = "请输入100字以内的备注"      \'3为默认为3行

    End With

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

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

    With wb.AddDialog("","dlg3", "","")   

            .AddButton("btnYes","是").Attribute = ""

            .AddButton("btnNo","否","ApplyService.htm").Kind = 1

    End With

            .AddButton("btnOK","确定")                             End With

   wb.AppendHTML("<script src=\'../ajax/libs/ajaxform.js\'></script>") \'引入脚本文件              

   e.WriteString(wb.Build)

Else \'保存新增的调查单

         Dim nms() As String = {"设备类型","CPU","内存","所在楼","所在科室","所在房间"}  

            For Each nm As String In nms

                   msgbox(nm)

                   msgbox(e.PostValues.ContainsKey(nm))                 

                If e.PostValues(nm)="" Then \'生成错误提示页

                    e.WriteString("请输入" & nm & "!")

                    Return "wrong"   \'必须返回                          End If

            Next

    nms= new String(){"设备类型","CPU","内存","所在楼","所在科室","所在房间","电脑用途","常用人","内网计算机名","内网IP","内网MAC","外网计算机名","外网IP","外网MAC","启用时间","资产归属","软件环境","备注"}

    Dim dr As DataRow = DataTables("PM终端设备管理表").AddNew()

    For Each nm As String In nms

        dr(nm) = e.PostValues(nm)

    Next

    dr.Save()

    e.WriteString("ok")

End If