ไม่ต้องการให้แสดง Row ที่ถูกลบข้อมูลไปแล้ว รบกวนด้วยคะ

Public Sub bindataDetailOnhand()
        Dim count, count2, k As Integer
        count = dtDetail.Rows.Count
        count2 = dtConfirm.Rows.Count
        For i = 0 To count - 1
            For k = 0 To count2 - 1
                Dim dr As DataRow
                dr = dtDetail.NewRow()
                dr("ลำดับที่") = dtDetail.Rows.Count + 1
                dr("รหัสยา") = dt.Rows(i)("MedCode")
                dr("ชื่อยา") = dt.Rows(i)("MedNameTH")
                If (rbDivide.Checked = True) And (dt.Rows(i)("MedCode") = dtConfirm.Rows(k)("ชื่อยา")) Then
                    dr("จำนวนที่เหลือ/ต่อหน่วย") = dt.Rows(i)("PortionOnhand") - CInt(dtConfirm.Rows(k)("จำนวนที่ต้องการ"))
                Else
                    dr("จำนวนที่เหลือ/ต่อหน่วย") = dt.Rows(i)("PortionOnhand")
                End If
                dr("ราคาต่อหน่วย") = dt.Rows(i)("PricePerPortion")
                If (rbPack.Checked = True) And (dt.Rows(i)("MedCode") = dtConfirm.Rows(k)("ชื่อยา")) Then
                    dr("จำนวนที่เหลือ/ต่อบรรจุภัณฑ์") = dt.Rows(i)("PackageOnhand") - CInt(dtConfirm.Rows(k)("จำนวนที่ต้องการ"))
                Else
                    dr("จำนวนที่เหลือ/ต่อบรรจุภัณฑ์") = dt.Rows(i)("PackageOnhand")
                End If
                dr("ราคาต่อบรรจุภัณฑ์") = dt.Rows(i)("PricePerPackage")
                dr("สถานะ") = dt.Rows(i)("Status")
                count = count + 1
                dtDetail.Rows.Add(dr)
            Next
        Next
        dgvShowDetail.DataSource = dtDetail
        'dtDetail.Clear()

End Sub