通过代码删除行
Dim r As Row = Tables("窗口1_Table1").Current
If r IsNot Nothing Then
r.Delete()
End If
希望跟通过菜单删除一样，删除前，会出现一个提示窗口，如果确认后才会删除。
我点击提示窗口的确定或取消，都会删除一行
MessageBox.Show("确认要删除这一行吗？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
Dim r As Row = Tables("生产管理_Table1001").Current
If r IsNot Nothing Then
r.Delete()
End If