Dim t As Table = Tables("表A") Dim st As Date = #00:00# For Each r As Row In t.Rows If r("第三列") <> Nothing Then If st < r("第三列") Then Dim nr As Row = t.addnew nr("第三列") = st nr("第四列") = r("第三列").addminutes(-1) st = r("第四列").addminutes(1) nr.Move(r.Index) Else st = r("第四列").addminutes(1) End If End If Next