新建 文本文档.txt

来自「用于车辆监控数据的分析」· 文本 代码 · 共 24 行

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