'下面这一段代码，查询数据量过大，界面就直接空白了，怎么处理？？
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
加好友 
发短信
Post By：2018/11/30 9:36:00 [只看该作者]
