Především musíme otestovat, zda materiálu nejsou přiřazeny žádné palety .
Dále je třeba potvrdit zrušení, aby k odstranění nemohlo dojít omylem .
#Region "Editace zaznamu"
#Region "Ridici tlacitka"
Private Sub btnOdstranit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOdstranit.Click
Dim vys As MsgBoxResult
Dim dvPalety As New DataView(Me.DsData.tblPalety)
dvPalety.RowFilter = "Cislo_Mat = '" & Me.txtCislo_Mat.Text & "'"
If dvPalety.Count > 0 Then
'Material v nektere palete nalezen
MsgBox("Nelze zrušit. Materiál je v některé paletě", MsgBoxStyle.Exclamation)
Else
'Material v zadne palete nenalezen
vys = MsgBox("Opravdu chcete smazat tuto položku", MsgBoxStyle.Information + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Smazat")
If vys = MsgBoxResult.Yes Then
'muzeme smazat material
TblMaterialBindingSource.RemoveCurrent()
End If
End If
End Sub
#End Region
#End Region