主题：关于手机端下拉组件问题

  wb.AddPageTitle("", "pageheader", "伸东电子访客登记")

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

            With wb.AddInputGroup("form1", "ipg1", "")

                

                With .AddInput("手机号", "手机号:", "text")

                    .Attribute = "" '调用js函数

                End With

                With .AddInput("姓名", "姓名:", "Text")

                    .Attribute = """ 

                End With

                With .AddInput("车牌号", "车牌号:", "text")

                    .Attribute = """ 

                End With

                With .AddInput("受访人", "受访人:", "text")

                End With

                With .AddInput("来访单位", "来访单位", "text")

                End With

                

              

               

                Dim str = dt.GetComboListString("省市", "", "邮编") 

                

                With .AddSelect("省份", "省份", str) 

                    .Attribute = """ 

                End With 

                

                With .AddSelect("城市", "城市", "") 

                End With 

                

                With .AddInput("镇区", "镇区", "text")

                End With

                

                With .AddInput("距离", "距离", "text")

                End With

                .AddSwitch("自带货物", "自带货物").Value = "false"

                With .AddInput("货物数量", "货物数量:", "text")

                End With

                

            End With 

            

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

                ' .Add("btn1", "确定", "button").Attribute = ""

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

            End With

            

            

            wb.AppendHTML("<script>" & vars("js006") & "</script>") '引入脚本文件

            e.WriteString(wb.Build)