怎么样在新增一行的时候自动抓取上一行的单号  并+1  赋给当前行的编号 ，不是自动编号，因为快递的话有时候会撕去几张，从而要手动添加快递单汉

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
End If
Dim ColNames As String() = {"快递单号"} \'定义一个数组,保存复制列的名称
Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
For Each Colname As String In ColNames
    e.DataRow(ColName) = dr(ColName) \'将最后一行的内容复制到新增行中.
Next

ok了  谢谢

    If Tables("快递信息").Current.IsNull("寄件_内件名") And Then
        Messagebox.Show("寄件内件名不能为空!")
    Else  If Tables("快递信息").Current.IsNull("物品重量") Then
        Messagebox.Show("物品重量不能为空!")
    Else If Tables("快递信息").Current.IsNull("收件_姓名") Then
        Messagebox.Show("收件姓名不能为空!")
    Else  If Tables("快递信息").Current.IsNull("收件_地址") Then
        Messagebox.Show("收件地址不能为空!")
    Else  If Tables("快递信息").Current.IsNull("收件_电话") Then

这样判断太麻烦了   能够连续判断吗？    能不能够在点击软件左上角的全局保存的时候 判断这些列不能为空  否则不能保存？    狐爸   bin

帮忙啊