For Each row As DataGridViewRow In grdItem.Rows
                        If row.Cells(5).Value <> 0 Then
                            Dim ds As Integer = 0
                            chk = Item_Chk(0, row.Cells(1).Value.ToString)
                            If chk = True Then
                                ds = 1
                            End If
                            chk = Item_Chk(1, row.Cells(1).Value.ToString)
                            If chk = True Then
                                ds = 0
                            End If
                            If Del_Item_Save(delno, row.Cells(1).Value.ToString, row.Cells(2).Value.ToString, row.Cells(3).Value.ToString, If(row.Cells(4).Value.ToString = "-", 0, row.Cells(4).Value.ToString), row.Cells(5).Value.ToString, ds, txtRefNo.Text) = True Then
                            End If
                            Dim barcode As String = row.Cells(1).Value.ToString
                            If ds = 1 Then
                                barcode = Item_Get(19, barcode)
                            End If
                            'update stock