主题：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

1、弹出msgbox(e.CurFolder)看看，你可以去掉 If e.CurFolder = "报价单"  Then 的判断的啊；

2、没看懂你现在要做什么，相关事件写了什么代码，请删除其余代码，单独执行此BeforeListDetails事件的代码。