| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]查询数据量过大，界面就直接空白了，怎么处理？？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128162) |
| -- 作者：YOU -- 发布时间：2018/11/30 9:36:00 -- [求助]查询数据量过大，界面就直接空白了，怎么处理？？ \'下面这一段代码，查询数据量过大，界面就直接空白了，怎么处理？？ With wb.AddPanelGroup("","pg1","") \'"通讯录<a href=\'#\' style=\'color: #FF0000;\'>[企业]</a>") Dim drs As List(Of DataRow) \'获取所有课程为False的数据 drs = DataTables("WXUsersLogn").Sel ect("姓名<>\'\' and 企业码=" & qym,"企业码 desc") Dim idx As Integer = 0 For Each dr As DataRow In drs idx+=1 \'.Add("pn1"," " & dr("姓名")," 联系电话:" & dr("联系电话"),dr("headimgurl")).Attribute = "" .Add("pn" & idx," " & dr("姓名")," 联系电话:" & dr("联系电话"),dr("headimgurl")).Attribute = " & idx & "\')""" With wb.AddDialog("","dlg" & idx,"温馨提示","您是否需要联系他(她)?") .AddButton("btn" & idx,"呼叫").Attribute = "" .AddButton("btnCancel" & idx,"取消").Kind = 1 End With Next End With
|
| -- 作者：有点甜 -- 发布时间：2018/11/30 9:44:00 -- 1、msgbox(drs.count) 看看弹出什么。
2、做个出错的例子发上来测试。 |
| -- 作者：YOU -- 发布时间：2018/11/30 9:50:00 -- 弹出数字 19 |
| -- 作者：YOU -- 发布时间：2018/11/30 9:55:00 -- 这段代码，如何改成分页效果？？ |
| -- 作者：有点甜 -- 发布时间：2018/11/30 10:13:00 -- 单独做一个出错的例子发上来测试。
如果你要做分页，建议你做成隐藏的方式，如 http://www.foxtable.com/mobilehelp/scr/0109.htm
|