主题：移动加载

1、httprequest里面，调用完函数后，马上return，如

 

Functions.Execute("某个函数")

return

 

2、生成的sql语句，在foxtable或者数据库工具执行（foxtable项目尽量不要和数据库在同一台电脑），看其执行的速度如何，看看是否sql语句问题。

 

3、菜单不显示问题，你去看看浏览器报什么错 http://www.foxtable.com/mobilehelp/scr/0244.htm

 

绝对你自身问题，我这样测试正常

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddTable("","table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") '表头
            For i As Integer = 1 To 600
                .body.AddRow("技术部" & i,"张三","36","110","中国北京") '数据
            Next
            .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

httprequest事件里面，调用完函数后，马上return，如

 

Functions.Execute("某个函数", e)

return

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

 

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

 

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