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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页统计

共有3653人关注过本帖树形打印复制链接主题：分页统计

有点蓝

小大 51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/5 9:43:00 [只看该作者]

除了标题，一行数据都没有，哪来的空行？！！

BG小白

小大 52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 9:48:00 [只看该作者]

你点下一个

BG小白

小大 53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 9:51:00 [只看该作者]

此主题相关图片如下：微信图片_20210705094929.png

现在是为了简单，我只保留了3行数据，你打开每个编号的单子，都会有3行，只是编号不对，就不显示，点下一款就能出来，三张编号的单子，你核对下显示的次序，就能发现了

有点蓝

小大 54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/5 9:58:00 [只看该作者]

正常啊，到底有没有看懂代码？每一页商品代码都不一样，查询条件不一样，查询结果也就不一样

比如编号为0388-20210704024541，商品代码有001，002,003三个，

第一个没有说明没有编号为0388-20210704024541商品为001的数据，

下一个有数据，说明有符合编号为0388-20210704024541商品为002的数据

BG小白

小大 55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 10:03:00 [只看该作者]

那如何能显示只有正确编号的行?

BG小白

小大 56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 10:13:00 [只看该作者]

不然如果这个表有一万行的时候，想死的心都有了

有点蓝

小大 57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/5 10:29:00 [只看该作者]

既然知道原因就不会想办法解决么，

比如查询没有数据就进行查下一个呗

比如根据每个编号查询这个编号才有的商品编码作为集合使用

BG小白

小大 58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 12:29:00 [只看该作者]

蓝老师，我研究了一下你给的思路，发现自己搞不出来，我就用了下面蓝色部分，但是也都失败了，实在是搞不明白了，麻烦蓝老师了

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

If flt > "" Then

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

End If

Dim dt As DataTable = cmd.ExecuteReader

Dim db As String = "" & e.Cookies("product") & ""

dt.DeleteFor("bh <> db")

dt.DeleteFor("bh not db")

dt.DeleteFor("bh <> " & e.Cookies("product") & "")

dt.DeleteFor("bh not " & e.Cookies("product") & "")

dt.Save()

有点蓝

小大 59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/5 13:36:00 [只看该作者]

不要使用全局的集合了，通过查询编号对应的编码生成新的集合

dim lst as new list(of string)

Dim cmd As New SQLCommand

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

cmd.CommandText = "Select SPDM From XPHCX"

if flt > "" then cmd.CommandText &= " where " & flt

Dim dt2 As DataTable = cmd.ExecuteReader

lst = dt2.getvalues("SPDM")

BG小白

小大 60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：603 积分：4090 威望：0 精华：0 注册：2019/11/14 23:06:00

Post By：2021/7/5 23:41:00 [只看该作者]

蓝老师，我用你上面的代码测试，发现没有没有分页，并且加载了这个编号的所有行

Dim lst As new List(of String)

Dim cmd As New SQLCommand

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

cmd.CommandText = "Sel ect SPDM as 商品代码,ZJF AS 助记符,CW AS 仓位,GG1MC as 颜色,GG2MC as 尺码,BHS AS 补货数,DCTP AS 图片 Fro m XPHCX"

If flt > "" Then

cmd.CommandText &= " where " & flt

End If

Dim dt As DataTable = cmd.ExecuteReader

lst = dt.getvalues("商品代码")

[此贴子已经被作者于2021/7/5 23:44:33编辑过]

下一主题 >> << 上一主题

总数 66 上一页 1 2 3 4 5 6 7 下一页

主题：分页统计