主题：表事件

谢谢老师，还有一种情况。就是如果选取9-15日，需要删除9-14日的数据而保留9-15日的数据，请问如何写？按照您的代码，程序是没有结果。给您添麻烦了。

 没看懂你的逻辑。请先理清自己要做什么？根据什么删除？

您的代码已经解决了我的三种情况里的两种，现在是解决最后一种。也就是一个seq在两天完成的情况下，当我选择第一天的日期重新处理，您的代码可行。但是当我选择第二天的日期处理，需要删除第一天的数据，而保留第二天的数据，而您的代码没有结果。您看这是否说清楚？

Dim d As Date = "2014-09-15"
Dim drs As List(Of DataRow) = DataTables("表A").Select("date = #" & d & "#")
If drs.count = 0 Then
    DataTables("表A").deletefor("")
Else
    For Each dr As DataRow In drs
        Dim fdr As DataRow = DataTables("表A").Find("date < #" & d & "# and seq = '" & dr("seq") & "'")
        If fdr Is Nothing Then
            DataTables("表A").deletefor("date >= #" & d & "# and seq = '" & dr("seq") & "'")
        End If
    Next
    DataTables("表A").deletefor("date < #" & d & "#")
End If