麻烦大家帮我看看

sunguochang

Dim strsql As String
    Dim rst As New ADODB.Recordset
    strsql = "select * from LD_COLOUR_HISTORY where (hld='" & HLD.Value & "') and (colour='" & Colour & "')"
    rst.Open strsql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
    Dim i As Integer, dt1 As Date, dt2 As Date
    Do Until rst.EOF
        i = i + 1
        If UCase(rst("event")) Like "*REC*" Then dt1 = rst("date")
        If UCase(rst("event")) Like "*SUB*" Then dt2 = rst("date")
        rst.MoveNext
    Loop
   
    MsgBox DateDiff("d", dt1, dt2) / (i / 2)
我想将if ucase(rst("event")) like "*SUB*" then dt2=rst("date")改为查找这个“*SUB*”最后一次出现的记录。不知怎么改？
请各位帮我看看！！！
[em26]
[em26]

大熊

首先你应该明确如何才是最后一次出现的记录，你是否有一个自动增长的ID来帮助判断。

sunguochang

是的，能否相告如何去做呢？？？

[/U][em26]

[此贴子已经被作者于2002-11-7 13:11:15编辑过]

sunguochang

若用DLAST怎么改呢？