รบกวนอีกครั้งค่ะ เลือกข้อมูลใน DatagridView แล้วข้อมูลไม่ตรงกับ Row ที่เลือกค่ะ

Private Sub DataGrid_Service_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGrid_Service.CellMouseDoubleClick

        Grid_Treated_Data.ImportRow(Grid_Service_Data.Rows(e.RowIndex)) ' import ข้อมูลไปยัง datagird ของ TReated
        Grid_Treated_Data.DefaultView.Sort = "ServID" 'จัดเรียงข้อมูลตาม ID
        DataGrid_Treated.DataSource = Grid_Treated_Data
        Set_GridTreated()
        Grid_Service_Data.Rows(e.RowIndex).Delete() ' ลบ row ที่เลือกไป
        Grid_Service_Data.AcceptChanges()
        DataGrid_Service.DataSource = Grid_Service_Data 'bind ข้อมูล
        Set_GridSV()

        '-------------------------------------
        'คำนวณค่าบริการ()
        Dim total As Integer
        For i As Integer = 0 To DataGrid_Treated.Rows.Count - 1
            total = total + (CDbl(DataGrid_Treated.Rows(i).Cells(2).Value.ToString * 1))
        Next
        SerAmount.Text = total.ToString

    Private Sub DataGrid_Treated_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGrid_Treated.CellMouseDoubleClick

        Grid_Service_Data.ImportRow(Grid_Treated_Data.Rows(e.RowIndex))
        Grid_Service_Data.DefaultView.Sort = "ServID"
        DataGrid_Service.DataSource = Grid_Service_Data
        ' DataGrid_Service.RowsDefaultCellStyle.WrapMode = True
        Set_GridSV()
        Grid_Treated_Data.Rows(e.RowIndex).Delete()
        Grid_Treated_Data.AcceptChanges()
        DataGrid_Treated.DataSource = Grid_Treated_Data
        '  DataGrid_Treated.RowsDefaultCellStyle.WrapMode = True
        Set_GridTreated()

    End Sub ' เมื่อลบข้อมูลใน Grid การรักษา

Grid_Treated_Data.DefaultView.Sort = "ServID" '<-- ลองเอาออกดูก่อน


Grid_Service_Data.DefaultView.Sort = "ServID" '<-- ลองเอาออกดูก่อน

 Private Sub DataGrid_Prescription_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid_Prescription.CellContentClick
        Grid_Ms_Data.ImportRow(Grid_Presciption_Data.Rows(e.RowIndex))
        ' Grid_Ms_Data.DefaultView.Sort = "MsID"
        DataGrid_Ms.DataSource = Grid_Ms_Data
        ' DataGrid_Service.RowsDefaultCellStyle.WrapMode = True
        Set_GridMs()
        Grid_Presciption_Data.Rows(e.RowIndex).Delete()
        Grid_Presciption_Data.AcceptChanges()
        DataGrid_Prescription.DataSource = Grid_Presciption_Data
        '  DataGrid_Treated.RowsDefaultCellStyle.WrapMode = True
        Set_GridPrescription()
    End Sub

 Sub Set_GridPrescription()
        Dim cs As New DataGridViewCellStyle()
        cs.Font = New Font("Browallia New", 14)
        With DataGrid_Prescription
            .ColumnHeadersDefaultCellStyle = cs
            .Columns(0).HeaderText = "จำนวน" <------ เป็นการใส่จำนวน
            .Columns(0).HasDefaultCellStyle.GetType()
            .Columns(0).Width = 56%
            .Columns(0).Visible = True

            ' .Columns("MsID").DisplayIndex = 0 <------ อ้างถึง MsID ไม่ได้เพราะแทนด้วย จำนวนไปแล้ว 
            .Columns(1).HeaderText = "รหัส"
            .Columns(1).Width = 56%
            .Columns(1).Visible = False

            .Columns("MsName").DisplayIndex = 1
            .Columns(2).HeaderText = "ชื่อ"
            .Columns(2).Width = 205%
            .Columns(2).Visible = True

            .Columns("SellPrice").DisplayIndex = 2
            .Columns(3).HeaderText = "ราคา(บาท)"
            .Columns(3).Width = 100%
            .Columns(3).Visible = True

            .Columns("UName").DisplayIndex = 3
            .Columns(4).HeaderText = "หน่วย"
            .Columns(4).Width = 60%
            .Columns(4).Visible = True

        End With

 Private Sub Cal_Ms() 'คำนวณค่ายา

        Dim total As Integer
        For i As Integer = 0 To DataGrid_Prescription.RowCount - 1
            If (DataGrid_Prescription.Rows(i).Cells(0).Value) = "" Then
                MessageBox.Show("กรุณาใส่จำนวนที่ต้องจ่ายให้แก่ลูกค้าด้วยค่ะ !!")
                Exit Sub
            End If
            If (DataGrid_Prescription.Rows(i).Cells(0).Value) <> "" Then
                If Not IsNumeric(DataGrid_Prescription.Rows(i).Cells(0).Value) Then
                    MessageBox.Show("กรุณากรอกจำนวนตัวเลขด้วยครับ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Exit Sub
                End If
            End If
            total = total + (CDbl(DataGrid_Prescription.Rows(i).Cells(0).Value.ToString * DataGrid_Prescription.Rows(i).Cells(3).Value.ToString))
        Next
        MsAmount.Text = total.ToString

    End Sub 'คำนวณค่ายา

 Private Sub DataGrid_Prescription_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid_Prescription.CellEndEdit
        Cal_Ms()
    End Sub ' กรอกจำนวนที่จ่าย แล้วทำการคำนวณค่ายา