求助一个查询

子煜　发表于：2013-07-08 15:08:25 　

型号+厚度为唯一值，视为一个产品，一个产品会经常报价，如何利用查询，将旧的记录标记“旧”，最新的一个报价为“新”。这个怎么判断？

型号	厚度	生效日期	单价	新旧报价
EC	.6	2013/6/10	1.36	旧
EC	.6	2013/6/18	1.35	旧
EC	.6	2013/6/20	1.38	新

db1

Top

西出阳关无故人发表于：2013-07-08 17:16:43

做一个自定义函数：

Function 标记新旧(ByVal 当前型号 As String, ByVal 当前厚度 As Double, ByVal 当前日期 As Date) As String
    Dim a As String
    Dim newdate As Date
    newdate = DMax("生效日期", "报价", "型号='" & 当前型号 & "' and 厚度=" & 当前厚度)
    If newdate > 当前日期 Then
        a = "旧"
    Else
        a = "新"
    End If
    标记新旧 = a
End Function

然后查询的SQL:

SELECT 报价.型号, 报价.厚度, 报价.生效日期, 报价.单价, 标记新旧([型号],[厚度],[生效日期]) AS 新旧报价 FROM 报价;

Top

西出阳关无故人发表于：2013-07-08 17:32:10

也可以直接做查询：

SELECT 报价.型号, 报价.厚度, 报价.生效日期, 报价.单价, IIf(DMax("生效日期","报价","型号='" & [型号] & "' AND 厚度=" & [厚度])>[生效日期],"旧","新") AS 新旧报价
FROM 报价;

Top

煮江品茶发表于：2013-07-08 17:32:18

在价格录入的顺序与时间顺序一致时，可写为：

select *,Dlast("单价","tbname","型号='" & [型号] & "' and 厚度='" & [厚度] & "'")=[单价] as 新价 from tbname

Top

子煜发表于：2013-07-09 09:21:04

因为我在SQL里面，请问在SQL里，以下这个怎么写？

Top

子煜发表于：2013-07-09 10:58:57

或者，以下的自定义函数能转到SQL里的自定义函数吗？

Function 标记新旧(ByVal 当前型号 As String, ByVal 当前厚度 As Double, ByVal 当前日期 As Date) As String
Dim a As String
Dim newdate As Date
newdate = DMax("生效日期", "报价", "型号='" & 当前型号 & "' and 厚度=" & 当前厚度)
If newdate > 当前日期 Then
a = "旧"
Else
a = "新"
End If
标记新旧 = a
End Function

然后查询的SQL:

SELECT 报价.型号, 报价.厚度, 报价.生效日期, 报价.单价, 标记新旧([型号],[厚度],[生效日期]) AS 新旧报价 FROM 报价;

Top

paciwater 发表于：2013-07-18 23:23:21

建议在表中新增1列 “新旧报价” ，默认值设为“新”

1、新录入的数据，“新旧报价”值为“新”

2、新增如下的更新查询，新录入数据后，执行该查询，将其他数据标记为“旧”

代码：

UPDATE 报价 a SET a.新旧报价 = '旧'
WHERE a.新旧报价 = '新'
AND EXISTS (SELECT 1 FROM
(SELECT b.型号&b.厚度 AS AA,MAX(b.生效日期) AS BB FROM 报价 b GROUP BY b.型号 & b.厚度) c
WHERE a.型号&a.厚度=c.AA AND a.生效日期 < c.BB
)

Top

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

Access交流中心

求助一个查询