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"
加好友 
发短信
Post By：2019/5/20 17:11:00 [显示全部帖子]
