给表格加上菜单

给表加上菜单的代码很简单，我们首先要设计一个ActionSheet，然后将此ActionSheet的ID设置为表的ActiveSheet属性即可。

例如HttpRequest事件代码：

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            .body.AddRow("技术部","张三","36","110","中国北京") '数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
            .ActiveSheet = "menu" '指定菜单
        End With
        With wb.AddActionSheet("","menu") '设计菜单
            .Add("mnudAdd", "增加订单")
            .Add("mnuEdit", "编辑订单")
            .Add("mnuDelete", "删除订单")
            .Add("mnuCancel","取消","",True)
        End With
        e.WriteString(wb.Build)
End Select

打开网页后，先点击选择某个单元格，然后再次点击此单元格，即可出现菜单。

也就是说，第一次点击是选择，第二次点击是显示菜单：

单单显示菜单是没有意义的，目的是通过菜单增加行，或编辑和删除选定的行，新增行好办，但是要实现编辑和删除行，就必须给服务器传递当前行的主键，这样服务器才能知道客户端需要编辑和删除的是哪一行，最好也将当前的页码一并传递给服务器，这样编辑和删除行之后，还能回到当前页，这是我们下一节要解决的问题。