'下面这一段代码,查询数据量过大,界面就直接空白了,怎么处理??
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