select没思路了，如何按上表筛选出下面的结果了。。谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → select没思路了，如何按上表筛选出下面的结果了。。谢谢

共有4835人关注过本帖树形打印复制链接主题：select没思路了，如何按上表筛选出下面的结果了。。谢谢

delxkjhgq

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

加好友

发短信

等级：幼狐帖子：153 积分：1013 威望：0 精华：0 注册：2012/11/6 14:55:00

select没思路了，如何按上表筛选出下面的结果了。。谢谢 发帖心情

Post By：2013/9/21 16:02:00 [只看该作者]

姓名	采购商品	数量
张三	机果	10
张三	香焦	20
张三	大麻	30
张三	机果	40
张三	香焦	50
张三	黄瓜	60
张三	黄瓜	70
李四	机果	40
李四	香焦	50
李四	黄瓜	60
李四	黄瓜	70

姓名	采购商品	数量
张三	机果	10
张三	香焦	20
张三	大麻	30
张三	黄瓜	70
李四	机果	40
李四	香焦	50
李四	黄瓜	60

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/9/21 16:28:00 [只看该作者]

日常工作→数据统计→分组统计。

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2359 威望：0 精华：0 注册：2011/4/25 9:23:00

Post By：2013/9/21 16:29:00 [只看该作者]

前面两列大概能看明白，失取里面姓名和采购商品组合不重复的行，但你数量列取数的条件是什么？

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/9/21 16:35:00 [只看该作者]

Dim s As String = "Select 姓名,采购商品,Sum(数量) As 数量 From {采购表} Group By 姓名,采购商品"
Tables("窗口1_Table1").Fill(s,True)

delxkjhgq

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

加好友

发短信

等级：幼狐帖子：153 积分：1013 威望：0 精华：0 注册：2012/11/6 14:55:00

Post By：2013/9/21 17:04:00 [只看该作者]

上面的例子是打个比方，下面是代码，请LSY指点。。谢谢

Dim hgq As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim drs As List(of DataRow)
cmd.C
cmd.CommandText = "Select 交货单号,行号 From {出库草稿表} Group By 交货单号,行号"
dt = cmd.ExecuteReader()
drs= dt.Select("[交货单号]= '" & hgq.text & "'","行号") 估计是我没有说明白，我就想能筛选出交货单号为文本框的值，但行号又不重复的行。。。。
Dim hg As Integer= drs.count * 5 ''通过计数可以算出需生成的标签个数
Dim Names As New List(Of String)
Dim Names1 As New List(Of String)
For i As Integer = 0 To drs.Count - 1

.........还要对里面的数据进行提取。。。