Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
Dim cmd As New SQLCommand
cmd.Connecti '记得设置数据源名称
cmd.CommandText = "Select Count(*) From {Table_Mem}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by huodongdate desc) As [NO.],[memid],huodongdate as 日期,changdifee as 场地费,qiufee as 球费,numpeople as 人数,avecost as 人均,yucunkoufee as 预存扣,shouxufee as 手续费,clubyucun as 场馆预存,offlinefee as 线下,tixianmoney as 提现,demo as 备注 From Table_Mem) As a "
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
Dim Total As Decimal = dr("changdifee")+ dr("qiufee")
With wb.AddPreview("","pv" & dr("memid"),dr("huodongdate") & "活动费用小计:", "¥" & Total)
.additem("场地费用:","¥" & dr("changdifee"))
.AddItem("备注内容:",dr("demo"))
.Addbutton("点赞", "", 1, "")
End With
wb.AppendHTML("<br/>")
Next
……