VB DataGridView中上移下移功能的实现

首先我用的这个办法必须数据库中有一个唯一列不是主键也不是标识列。我用代码让这一列自增，以便完成需要的功能。

数据库表如下

具体代码：

 Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click 这个是下一行
        Dim MySqlServer As New clsSqlServer("Server=PC-201108181735;Initial Catalog=CAMC_DCS;User ID=sa; Password=niu6351")
        Dim tet As String = Me.DataGridView1.Rows(Me.DataGridView1.CurrentCell.RowIndex).Cells("orderID").Value.ToString()
        Dim tet1 As String = Me.DataGridView1.Rows(Me.DataGridView1.CurrentCell.RowIndex).Cells("orderFrom_ID").Value.ToString() '上以前ID
        Dim bm As BindingManagerBase = Me.DataGridView1.BindingContext(Me.DataGridView1.DataSource) '使光标移动到下一行上