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

按国家做条件显示数据呗，比如一次只显示一个国家的数据，或者显示2、3个国家的数据

没看懂，请上传实例说明。原数据是怎么样的，下一款又是哪些数据

利用集合

全局代码

public lst as new List(of string)

afteropenproject

lst = datatables("表A").getvalues("商品代码")

第一页就是提取集合为0的索引作为查询条件，把集合索引作为页码保存即可

Dim page As Integer = 0

dim filter as string = "商品代码='" & lst(page) & "'"

先看看：http://www.foxtable.com/mobilehelp/topics/0044.htm

去掉这句： s = "/E:/QYWX/Project/RemoteFiles/" & s

……

Else '否则根据Cookie合成条件表达式

If e.Cookies.ContainsKey("product") Then

flt = "bh = '" & e.Cookies("product") & "'"

End If

Dim page As Integer = 0

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

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

End If

Dim cmd As New SQLCommand

cmd.C '记得设置数据源名称

cmd.CommandText = "Select Row_Number() Over(Order by SPDM) As [NO.], SPDM as 商品代码,ZJF AS 助记符,CW AS 仓位,GG1MC as 颜色,GG2MC as 尺码,BHS AS 补货数,TCTP AS 图片 From XPHCX where SPDM='" & lst(page) & "' "

If flt > "" Then

cmd.CommandText = cmd.CommandText & " and " & flt

End If

Dim dt As DataTable = cmd.ExecuteReader

With wb.AddTable("","Table1")

.MergeCols = 3 '合并左边2列

.Highlight = -1 '关闭高亮显示功能

.RowHead = 1

.CreateFromDataTable(dt)

End With

With wb.AddInputGroup("form1","ipg1","商品图片")

wb.AddForm("","form2","test.htm")

With .AddUploader("up1","",True)

.AllowAdd = False '关闭文件上传功能

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

AddImage(s)

'msgbox(s)

End With

With wb.AddButtonGroup("","btg2", False)

If page > 0 Then

.Add("btnPrev", "上一款","","List.htm?page=" & page - 1)

End If

If page < lst.count - 1 Then

.Add("btnNext", "下一款","","List.htm?page=" & page + 1)

End If

End With

End Select

e.WriteString(wb.Build)

红色代码完全多余的，原因请认真看看：http://www.foxtable.com/mobilehelp/topics/0044.htm

错误的原因是有重复的图片名称，可以利用集合判断一下

dim lst as new list(of string)

For Each dr As DataRow In dt.datarows

For Each s As String In dr.lines("图片")

if lst.contains(s) then continue for

lst.add(s)

With wb.AddInputGroup("form1","ipg1","商品图片")

With .AddUploader("up1","缩略图",True)

.AllowAdd = False '关闭文件上传功能

.AddImage(s,s)'

End With

另外自己调试一下

Dim fl As String = "/E:/QYWX/Project/RemoteFiles/" & e.path

msgbox(fl)

Dim path As String = fl.replace("/E:/QYWX/Project/RemoteFiles/" , "")

msgbox(path)

If FileSys.FileExists(path) Then

e.WriteFile(path)

End If

Case "list.htm"这个页面的代码不完整，看不出什么问题

Dim flt As String

If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie

MessageBox.Show(e.GetValues("unfilter")）

wb.ClearCookie()

ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式

If e.PostValues.ContainsKey("product") Then

flt = "bh = '" & e.PostValues("product") & "'" '合成条件

wb.AppendCookie("product", e.PostValues("product")) '将值写入cookie中

Else

wb.DeleteCookie("product") '删除cookie

MessageBox.Show(“删除cookie” ）

End If

Else '否则根据Cookie合成条件表达式

MessageBox.Show(“根据cookie” ）

If e.Cookies.ContainsKey("product") Then

flt = "bh = '" & e.Cookies("product") & "'"

End If

MessageBox.Show(flt ）

MessageBox.Show(e.PostValues("product")）

点击查询？还是点击下一个弹出来的，能不能自己把问题描述清楚

主题：分页统计