Question

在access中，表中每个型号都有多条记录，在做查询时，每个型号只要求显示前3条，其它的不显示，如何处理？

Answer 1

dim rs as adodb.recordset
dim conn as adodb.connection //must open conn before the form show
dim sqlstr as string

sqlstr = "select * from table"
set rs = conn.execute(sqlstr)

if rs.eof then exit sub

grid.rows = grid.rows +1

grid.textmatirs(grid.rows-1,1) = rs.fields(0)
grid.textmatirs(grid.rows-1,2) = rs.fields(1)
......
grid.textmatirs(grid.rows-1,n) = rs.fields(n)

我不知道你要查询的记录集有几个字段，所以用n表示。
懂了吗？

追问

谢谢你的回答，我还是不明白？
我的意思是，假如有一个订单表，我只要显示订单表中每个型号的前3个记录。
如:
项目 订单号 交期 数量
1. A001 6/10 1000
2. A001 6/11 1000
3. A001 6/12 1000
4. A001 6/13 1000
5. B001 6/10 1000
6. B001 6/11 1000
7. B001 6/12 1000
8. B001 6/13 1000
查询结果只显示A001及B001前3条记录，（即：结果只要显示1.2.3项及5.6.7项。）

Answer 2

你指的是数据类型吧？数据类型跟记录数没有关系，一般情况下你是用不完的。

追问

谢谢你的回答，我还是不明白？
我的意思是，假如有一个订单表，我只要显示订单表中每个型号的前3个记录。
如:
项目 订单号 交期 数量
1. A001 6/10 1000
2. A001 6/11 1000
3. A001 6/12 1000
4. A001 6/13 1000
5. B001 6/10 1000
6. B001 6/11 1000
7. B001 6/12 1000
8. B001 6/13 1000
查询结果只显示A001及B001前3条记录，（即：结果只要显示1.2.3项及5.6.7项。）

追答

你是想显示前3条，还是全部显示？？？
QQ加我：51764276（珍惜今天）

追问

我是想显示每个型号的前3条记录，当某型号记录数不足3条时就有多少条显示多少条。当某型号的记录数大于3条时，就显示交货期最前的3条。
注：需要所有型号的前3条记录，明白我的意思了吧！在ACCESS中只需要做一个简单的选择查询！尽量不要用VB语言编程。
另外，我现在还在上班，不可以上QQ，有时间就同你QQ联系。

追答

我已经为你做了一个数据库，包括表和窗体，如果你告诉我邮箱，我发给你，现在只能把这段代码写给你。需要说明的是在你的表中增加一个“NN”字段，类型是数字。
Dim rs As DAO.Recordset
Set rs = Form.Recordset
订单号L = " "
n = 0
kz = 0
strSQL = "UPDATE 订单表 SET NN = 0"
CurrentProject.Connection.Execute strSQL
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields("订单号") = 订单号L Then
n = n + 1
If n > 3 Then kz = 0
Else
订单号L = rs.Fields("订单号")
n = 1
kz = 1
End If
If kz = 1 Then
id_l = rs.Fields("ID")
strSQL = "UPDATE 订单表 SET NN = 1 WHERE id = " & id_l
CurrentProject.Connection.Execute strSQL
End If
rs.MoveNext
Loop
Me.Form.Refresh

追问

非常感谢你的帮助，我的邮箱是：Jason.Chen8455@163.com

追答

我现在就发给你，你在Access界面上运行窗体点击相应的按钮既有结果了。