access如何字段上一条记录

Posted 2023-03-20

表里有五个字段：日期，名称，今日值，日增长值，日增长率
日期字段的日期值是asp表单提交的request.form("date")
名称字段里有多个名称，有相同的记录也有不同的记录
今日值是asp由表单提交的request.form("jrz")
日增长值是求同一名称的今日值的当前记录和上一日期今日值的记录的差值
日增长率是求（同一名称的今日值的当前记录和上一日期今日值的记录的差值）与上一日期今日值的记录的除法

比如
日期 名称 今日值 日增长值 日增长率
20070801 AA 1.1
20070803 BB 2.2
20070805 AA 1.5
20070805 BB 2.5

现在通过什么样的方法能把日增长值和日增长率求出来

用SQL能否实现，access好像不支持复杂的SQL语句

用asp的方法怎么实现？

我是asp初学者，理解能力有限，请大哥大姐们帮忙说的详细点，谢谢！
+++++++++++++++++++++++++++++++++++++++

道理我知道，能不能说说过程啊，高人？

能就写出来吧

参考技术A 没搞明白，但是过程因该市
首先用sql语句取得上一日期今日值
在request.form("jrz") 取得今日指。
做完你所说的运算
保存 参考技术B 不知道你是不是统计字段相同内容的条数的相加和相减啊
就是20070824有多少纪录减去20070823的多少纪录这样算出值吗

在vb.net中怎样浏览首记录 、上一条、下一条、尾记录、和数据库access 绑定的

参考技术A 一般，我都不喜欢做这样报上一条下一条，太专业的数据库操作不适合终端用户。
如果必须要做，你可以这样：按排序规则，取到健列表。保存到list中，上下条，只是改变一索引而已。

Imports System.Data.OleDb
Class BindNavigate
Dim cnn As OleDb.OleDbConnection '打开连接略

Dim lst As New List(Of Integer)
Sub New()
lst = New List(Of Integer)
index = -1
Using da As New OleDbDataAdapter("select id from mytable order by abc,def", cnn), tb As New DataTable
da.Fill(tb)
For Each row As DataRow In tb.Rows
Dim n As Integer = row(0)
lst.Add(n)
Next
If tb.Rows.Count > 0 Then CurrentIndex = 0
End Using

End Sub
Dim index As Integer Event CurrentIndexChanged()
Property CurrentIndex As Integer
Get
Return index
End Get
Set(ByVal value As Integer)
Dim b As Boolean = value <> index
index = value
If b Then RaiseEvent CurrentIndexChanged()
End Set
End Property
'当前的键值
ReadOnly Property CurrentValue As Integer
Get
Return lst(index)
End Get
End Property

Sub MoveFirst()
CurrentIndex = 0
End Sub
Sub MovePrevious()
CurrentIndex -= 1
End Sub
Sub MoveNext()
CurrentIndex += 1
End Sub

Sub MoveLast()
CurrentIndex = lst.Count - 1
End Sub

ReadOnly Property BOF
Get
Return CurrentIndex <= 0
End Get
End Property
ReadOnly Property EOF
Get
Return CurrentIndex >= lst.Count - 1
End Get
End Property

Private Sub Text_CurrentIndexChanged() Handles Me.CurrentIndexChanged
'绑定过程
End Sub
End Class