同样数据只显示一条记录，把数据汇总起来显示

菜鸟先飞　发表于：2009-03-13 13:48:52 　

复制

怎么修改例子，在查看时候怎么把5条相同数据，但是只显示一条其中当日入库数量自动汇总，条件大于起始日期小于起始日期

Top

菜鸟先飞发表于：2009-03-13 13:50:28

晕怎么做的例子没上传上来

Top

菜鸟先飞发表于：2009-03-13 13:51:17

点击下载此附件

Top

赵文斌发表于：2009-03-13 14:21:47

用GROUP BY 分组查询作为数据源。

Top

菜鸟先飞发表于：2009-03-13 16:52:10

strsql = "select * from tbldr where 1=1"
If IsNull(Me.代码) = False Then
strsql = strsql & " and 产品编号 like '" & Me.代码 & "*'"
End If
If IsNull(Me.起始时间) = False Then
strsql = strsql & " and 当日入库数量 in (select max(当日入库数量) from tbldr where 日期 >= #" & Me.起始时间 & "# GROUP BY 产品名称) "
End If
If IsNull(Me.结束时间) = False Then
strsql = strsql & " and 当日入库数量 in (select max(当日入库数量) from tbldr where 日期 <= #" & Me.结束时间 & "# GROUP BY 产品名称) "
End If

GROUP BY 分组后不能查找出一段时间里面，当日入库数量最大的那条记录
在线等谢谢！

Top

菜鸟先飞发表于：2009-03-13 17:13:03

Private Sub Command9_Click()
Dim strsql As String
strsql = "select * from tbldr where 1=1"
If IsNull(Me.代码) = False Then
strsql = strsql & " and 产品编号 like '" & Me.代码 & "*'"
End If
If IsNull(Me.起始时间) And IsNull(Me.结束时间) = False Then
strsql = strsql & " and 当日入库数量 in (select max(当日入库数量) from tbldr where 日期 >= #" & Me.起始时间 & "#" & " and 日期 <= #" & Me.结束时间 & "# GROUP BY 产品名称)"
End If
If IsNull(Me.结束时间) = False Then
strsql = strsql & " and 当日入库数量 in (select max(当日入库数量) from tbldr where 日期 <= #" & Me.结束时间 & "# GROUP BY 产品名称) "
End If
If IsNull(Me.起始时间) = False Then
strsql = strsql & " and 当日入库数量 in (select max(当日入库数量) from tbldr where 日期 >= #" & Me.起始时间 & "# GROUP BY 产品名称) "
End If
Me.日盘点子窗体.Form.RecordSource = strsql
rptsource = Me.日盘点子窗体.Form.RecordSource
Me.日盘点子窗体.Form.Refresh
End Sub

改下数据库的运行方式后只能这么做拉

谢谢 zhaowb的提示

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

同样数据只显示一条记录，把数据汇总起来显示