代码1:count=datatables("a").sqlselect(filter).count
代码2:
Dim c md As n ew S QLCom mandc md.c md.=" s el ect count(*) as sum fr om{inbox} wh ere re='" & _UserName & "'"e.form.Controls("lbyjs").text="当前账号总邮件数:" & c md.Ex ecuteReader.DataRows(0)("sum")
第一个代码至少卡了5秒才有结果 第二个代码没有任何卡顿