标题: 麻烦大家帮我看看 [打印本页] 作者: sunguochang 时间: 2002-11-7 20:42 标题: 麻烦大家帮我看看 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]作者: 大熊 时间: 2002-11-7 20:57
首先你应该明确如何才是最后一次出现的记录，你是否有一个自动增长的ID来帮助判断。 作者: sunguochang 时间: 2002-11-7 21:11
是的，能否相告如何去做呢？？？