主题：让表格有下拉选

Select Case e.Path

    Case "table.htm"

        Dim wb As New WeUI

        With wb.AddTable("","Table1")

            .Alternate = 3

            .RowHead = 1

            .ColWidth = "12px"

            Dim nms() As String = {"","产品","客户","数量","单价","日期"}

            .Head.AddRow(nms)

            Dim cnt As Integer

            For Each r As DataRow In DataTables("订单").Select("数量 > 100", "日期 Desc")

                cnt = cnt + 1

                With .Body.AddRow(cnt, r("产品"), r("客户"), r("数量"))

                    .AddCell(Format(r("单价"), "#0.00"))

                    .AddCell(Format(r("日期"), "MM月dd日"))

                End With

            Next

        End With

        e.WriteString(wb.Build)

End Select

老师，请问我想用这种方式，在红色部分设置为一个下拉内容用于选择填表，然后接交并保存所选的值，怎么实现呢？

老师，这种有个问题是只有逐条的修改数据，如我涉及几个数据要分别选择不同的选项这样就交麻烦，如班主任对一个班的每个学生选填某一个列的内容，在表中选填后保存明显快得多，我的问题是这种方式下如何给表中增加下拉有什么办法来解决