主题：移动加载

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

 

Functions.Execute("某个函数")

return

 

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

 

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

 

sql：
Sele   ct 学校名称,班级,学生姓名,联系电话,状态,_Identify From {学生信息} where [学校名称] = '内江市东兴区石子镇中心学校' and left(状态,2)='在读' order by 班级,学生姓名

 

显示的数据是正确的，我测试了，只能显示到560条记录就为止，我在前面删一条，就多显示后面一条，总条数始终是560，这可怎么办是好？这是不是系统BUG

并且测试发现，当记录少于560条时，就可弹出菜单，我是想一个学校的学生信息可以一并显示，不限定一页的记录显示，这样方便查找，这可怎么办？

 

建议使用分页，然后加上查询条件，可以过滤。

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

 

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

With wb.AddTable("","Table1")
    .attribute ="table border='1'style = 'text-align:center;line-height: 120% '"
    .head.AddRow("班级","学生姓名","联系电话") '表头
    For Each r As DataRow In dt.DataRows
        With .body.AddRow(r("班级"),r("学生姓名"),r("联系电话")) '数据
        End With
    Next
    .ActiveSheet = "menu"
    .Primarykey = "_Identify" '
    ' .CreateFromDataTable(dt, False,"","","班级","学生姓名","联系电话")
 老师我觉得应该是BUg,将红色代码改用蓝色代码就没有问题。是不是用datatables生成表格还要有什么设置？

wb.InsertHTML("<h2 face='verdana' align='center' style=""color:blue; background-image:url('./images/b1.jpg')"">学生信息" & count & "人</h2>")
With wb.AddTable("","Table1")
    .attribute ="table border='1'style = 'text-align:center;line-height: 120% '"
    .head.AddRow("班级","学生姓名","联系电话") '表头
    For Each r As DataRow In dt.DataRows
        With .body.AddRow(r("班级"),r("学生姓名"),r("联系电话")) '数据
        End With
    Next
    .ActiveSheet = "menu"
    .Primarykey = "_Identify" '
    ' .CreateFromDataTable(dt, False,"","","班级","学生姓名","联系电话")
End With
现在又有个问题， .Primarykey = "_Identify" ' 取_inentify值为空了呢