移动加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动加载

共有2475人关注过本帖树形打印复制链接主题：移动加载

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

移动加载

Post By：2017/11/13 15:20:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:12.txt

请老师帮看一下，谢谢

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/11/14 9:28:00 [显示全部帖子]

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

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

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/11/14 9:35:00 [显示全部帖子]

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

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/11/14 13:43:00 [显示全部帖子]

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生成表格还要有什么设置？

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2017/11/14 13:54:00 [显示全部帖子]

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值为空了呢

下一主题 >> << 上一主题

主题：移动加载