专家坐堂-报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网络监视器

Select Case e.Path

Case "list.htm"

Dim page As Integer = 0 \'默认page为0,显示第一页

Dim pageRows As Integer = 10 \'每页10行

If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数

Integer.TryParse(e.GetValues("page"), page) \'提取page参数

End If

Dim StartRow As Integer = page * pageRows \'此页第一行

Dim EndRow As Integer = (page + 1) * pageRows - 1 \'此页最后一行

Dim lst As List(of DataRow) = DataTables("table_3").Select("","记录日期 Desc") \'按日期顺序显示

If StartRow > lst.Count -1 Then

e.WriteString("已经是最后一页!")

Return

End If

EndRow = Math.Min(EndRow, lst.Count - 1) \'这是必须的

Dim sb As New StringBuilder

Dim nms() As String = {"状态","记录时间","店铺名称","产品类别","单号","产品SKU","责任方","状况描述原因","客户姓名","联系方式","寄送地址","处理方式","寄送SKU","配件SKU","数量","备注","发货仓库","系统单号","追踪号","物流公司","发货日期","收货日期","下单日期","回访","记录日期","结束日期","赠送SKU","处理时间"}

sb.AppendLine("<Table border=\'1\'>")

sb.AppendLine("<caption>订单浏览<caption></br>")

sb.Append("<tr>")

For Each nm As String In nms

sb.Append("<td>" & nm & "</td>")

sb.AppendLine("</tr>")

For r As Integer = StartRow To EndRow

sb.Append("<tr>")

For Each nm As String In nms

sb.Append("<td>" & lst(r)(nm) & "</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</Table></br></br>")

If page > 0 Then

sb.Append("<a href=\'list.htm?page=" & page - 1 & "\'>上一页</a> ")

End If

If EndRow < lst.Count -1 Then

sb.Append("<a href=\'list.htm?page=" & page + 1 & "\'>下一页 </a>" )

End If

e.WriteString(sb.ToString)

End Select