主题：车辆管理数据库（带串口的）的一个功能问题

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表

    Return '那么返回

End If

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行

Dim d As Date = Date.Now   '定义目前的时间

Dim i As Integer = DateDiff("n",d,dr("第一列"))  '获取两个时段的时间

If i < 20 Then   '如果小于20分钟

    MessageBox.Show("不足20分钟,不能新增行")  '提示 时间不到不能新增

    e.Cancel = True    '取消新增

End If