[求助]selsect多选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Dim sb As New StringBuilder

If e.Path = "cello" Or e.PostValues.ContainsKey("ce1")

messagebox.show(e.PostValues("ce1"))

tables("表A").current("第一列") = e.PostValues("ce1")

End If

Select Case e.Path

Case "cello"

sb.AppendLine("<!doctype html>")

sb.AppendLine("<html >")

sb.AppendLine("<head runat='server'>")

sb.AppendLine("<meta name='viewport' c>")

sb.AppendLine(" <title></title>")

sb.AppendLine(" <style type='text/css'>")

sb.AppendLine(" #Text1")

sb.AppendLine(" {")

sb.AppendLine(" width: 904px;")

sb.AppendLine(" height: 598px;")

sb.AppendLine(" }")

sb.AppendLine("")

sb.AppendLine(" .style38")

sb.AppendLine(" {")

sb.AppendLine(" color: #FFFF00;")

sb.AppendLine(" font-family: 方正舒体;")

sb.AppendLine(" }")

sb.AppendLine(" .style26")

sb.AppendLine(" {")

sb.AppendLine(" width: 79px;")

sb.AppendLine(" }")

sb.AppendLine(" .style29")

sb.AppendLine(" {")

sb.AppendLine(" font-size: xx-large;")

sb.AppendLine(" color: #99CC00;")

sb.AppendLine(" font-family: 方正舒体;")

sb.AppendLine(" }")

sb.AppendLine(" .style37")

sb.AppendLine(" {")

sb.AppendLine(" font-size: xx-large;")

sb.AppendLine(" color: #99CC00;")

sb.AppendLine(" font-family: 宋体, Arial, Helvetica, sans-serif;")

sb.AppendLine(" font-weight: bold;")

sb.AppendLine(" }")

sb.AppendLine(" .style27")

sb.AppendLine(" {")

sb.AppendLine(" height: 11px;")

sb.AppendLine(" }")

sb.AppendLine(" .style36")

sb.AppendLine(" {")

sb.AppendLine(" width: 85px;")

sb.AppendLine(" }")

sb.AppendLine(" .style32")

sb.AppendLine(" {")

sb.AppendLine(" font-family: 宋体, Arial, Helvetica, sans-serif;")

sb.AppendLine(" }")

sb.AppendLine(" .style30")

sb.AppendLine(" {")

sb.AppendLine(" color: #660066;")

sb.AppendLine(" font-family: 方正舒体;")

sb.AppendLine(" }")

sb.AppendLine(" .style56")

sb.AppendLine(" {")

sb.AppendLine(" text-align: center;")

sb.AppendLine(" }")

sb.AppendLine(" .style57")

sb.AppendLine(" {")

sb.AppendLine(" color: #990099;")

sb.AppendLine(" font-size: x-large;")

sb.AppendLine(" text-align: center;")

sb.AppendLine(" font-weight: bold;")

sb.AppendLine(" }")

sb.AppendLine(" .style58")

sb.AppendLine(" {")

sb.AppendLine(" text-decoration: none;")

sb.AppendLine(" color: #660066;")

sb.AppendLine(" }")

sb.AppendLine(" .auto-style1")

sb.AppendLine(" {")

sb.AppendLine(" font-size: x-large;")

sb.AppendLine(" text-align: center;")

sb.AppendLine(" }")

sb.AppendLine(" .style73")

sb.AppendLine(" {")

sb.AppendLine(" font-weight: 700;")

sb.AppendLine(" font-size: x-large;")

sb.AppendLine(" text-align: center;")

sb.AppendLine(" }")

sb.AppendLine(" .auto-style3")

sb.AppendLine(" {")

sb.AppendLine(" height: 96px;")

sb.AppendLine(" }")

sb.AppendLine(" .auto-style5")

sb.AppendLine(" {")

sb.AppendLine(" width: 40px;")

sb.AppendLine(" }")

sb.AppendLine(" .auto-style4")

sb.AppendLine(" {")

sb.AppendLine(" width: 237px;")

sb.AppendLine(" }")

sb.AppendLine(" </style>")

sb.AppendLine("</head>")

sb.AppendLine("<body style='width: 100%;margin:auto;'>")

sb.AppendLine("<form enctype='multipart/form-data' method='post' name='form1' style='width: 100%; height: 100%; margin-right: 0px;'> ")

sb.AppendLine(" <Table style='width:100%;margin:auto; background-color: #CCFFFF;'>")

sb.AppendLine(" <tr>")

sb.AppendLine(" <td><Select multiple='multiple' size='2' name='ce1' style='width:100%; height: 29px' ><option>" & "客户1" & "</option><option>" & "客户2" & "</option></Select></td>")

sb.AppendLine(" </tr>")

sb.AppendLine(" <td style='height: 29px;'dir='rtl'><input Type='submit' style='width:70%; height: 35px;font-size: x-large' value=' 确认 '></td>")

sb.AppendLine(" </Table>")

sb.AppendLine(" </form>")

sb.AppendLine("</body>")

sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select

两个问题：

第一、打开页面后，select框没有内容，只显示"选择了0项"，我需要显示"客户1"

第二、选择了"客户1"和"客户2"，再点击确认，表A第一列只保存到"客户1"，设置messagebox.show，也只弹出"客户1"

主题：[求助]selsect多选