主题：BeforeListDetails问题

加入msgbox，看弹出什么

If e.CurFolder = "报价单"  Then
msgbox(1)
    For Each Info() As String In e.Infos
msgbox(Info(1))
        Dim md As Date = CDate(Info(1)) '第二个元素虽然存储的是日期,但类型是字符串,需要先转换为日期.
        If md.AddSeconds(2) < DateTime.Now Then
            e.Remove(Info)
        End If
    Next
End If