主题：[求助]表里面如何做成点击最后一行添加数据这样子？

If e.OldRange.RowSel <> e.NewRange.RowSel OrElse e.OldRange.ColSel <> e.NewRange.ColSel '如果选择的是不同的行

    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行

        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行

        If r.IsNull("第一列") Then  '如果编号为空

            msgbox("请输入第一列")

            e.Table.StartEditing

            e.Cancel = True

        End If

    End If

End If