尝试做的,但不好用!
Function Total(Code As String, DatF As Date, Xj As Single, n As Integer) As Double
Dim rs As DAO.Recordset
Dim Sql As String
Dim Total As Double
Dim Count As Integer
Total = 0
Count = 0
Sql = "SELECT Top " & n + 1 & " Dat,Dm,Xj FROM usysA WHERE Dm= '" & Code & "' ORDER BY Dat DESC"
Set rs = CurrentDb.OpenRecordset(Sql)
Do While Not rs.EOF
Total = Total + rs.Fields(1)
Count = Count + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function
Function Total(Code As String, DatF As Date, Xj As Single, n As Integer) As Double
Dim rs As DAO.Recordset
Dim Sql As String
Dim Total As Double
Dim Count As Integer
Total = 0
Count = 0
Sql = "SELECT Top " & n + 1 & " Dat,Dm,Xj FROM usysA WHERE Dm= '" & Code & "' ORDER BY Dat DESC"
Set rs = CurrentDb.OpenRecordset(Sql)
Do While Not rs.EOF
Total = Total + rs.Fields(1)
Count = Count + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function