主题：移动加载

这段代码，两千行也没问题，请检查自身代码问题。

如果还有问题做实例发上来测试。

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddTable("","table1")
            Dim cmd As new SQLCommand
            cmd.CommandText = "Select * from {表A}"
            Dim dt = cmd.ExecuteReader
            .CreateFromDataTable(dt, False,"","","第一列", "第二列", "第三列")
           
            .ActiveSheet = "menu" '指定菜单
        End With
        With wb.AddActionSheet("","menu") '设计菜单
            .Add("menu1", "菜单项目1")
            .Add("menu2", "菜单项目2")
            .Add("menu3", "菜单项目3")
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)
End Select