Dim wb As New WeUI
Dim flt As String
If e.GetValues.ContainsKey("unfilter") Then '如果是取消筛选
wb.ClearCookie() '清除Cookie
ElseIf e.PostValues.Count > 0
flt = Functions.Execute("tbGetFilter",e, wb) '根据输入内容合成条件，注意WeUI也需要传递过去
Else
flt = Functions.Execute("tbGetCookieFilter",e) '根据Cookie合成条件
End If
'获取要显示的页码
Dim page As Integer = 0 '默认page为0,显示第一页
Dim pageRows As Integer = Tables("微信参数").rows(0)("页面显示行数") '每页显示行数,在微信参数表中修改
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 '此页第一行
Dim EndRow As Integer = (page + 1) * pageRows '此页最后一行
'提取此页数据
Dim cmd As New SQLCommand
cmd.C '记得设置数据源名称
cmd.CommandText = "S elect Count(*) From {投标立项}"
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt
End If
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim Pages As Integer = Math.Ceiling(Count/PageRows) '计算出总页数
cmd.CommandText = "S elect * From (S elect Row_Number() Over(Order by 开标时间) As [NO],项目名称,区域,开标时间 From 投标立项"
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt
End If
cmd.CommandText = cmd.CommandText & ") As a "
cmd.CommandText = cmd.CommandText & " Where [NO]>= " & StartRow & " And [NO] <= " & EndRow
'合成网页
With wb.AddTable("","Table1")
.ActiveSheet = "menu" '指定菜单
.CreateFromDataTable(cmd.ExecuteReader)
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnFirst", "第一页","","tbList.htm?page=0").Kind = 0
.Add("btnPrev", "上一页","","tbList.htm?page=" & page - 1).Kind = 0
Else
.Add("btnFirst", "第一页","button").Kind = 0
.Add("btnPrev", "上一页","button").Kind = 0
End If
If Endrow < count Then
.Add("btnNext", "下一页","","tbList.htm?page=" & page + 1).Kind = 0
.Add("btnLast", "最末页","","tbList.htm?page=" & pages - 1).Kind = 0
Else
.Add("btnNext", "下一页","button").Kind = 0
.Add("btnLast", "最末页","button").Kind = 0
End If
End With
With wb.AddButtonGroup("","btg3", False)
.Add("btnsx", "重新筛选","","tbfilter.htm").Kind = 2
.Add("btnzy", "返回项目列表","","tblx.htm").Kind = 2
End With
With wb.AddActionSheet("","menu") '设计菜单
If flt = "" Then
.Add("mnuFilter", "数据筛选","tbfilter.htm")
Else
.Add("mnuUnFilter", "取消筛选","tbList.htm?unfilter=true")
End If
.Add("mnuStatistics", "数据统计","tbtongji.htm")
.Add("mnuCancel","取消","",True)
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/8/13 20:58:00 [只看该作者]
