新建 文本文档.txt

用于车辆监控数据的分析

Dim LastB As Boolean

rs.MoveFirst

Do Until rs.EOF '不可用记录数，因为删除后记录数会减少


  If rs.Fields("roadName").Value = "未命名道路" Then
    LastB = True
  Else
  
    If Rname = rs.Fields("roadName") And LastB Then
       
       rs.Delete
       rs.MovePrevious
       rs.Delete
    Else
       Rname = rs.Fields("roadName")
    End If
    LastB = False
  End If
  rs.MoveNext
Loop