From 2a0420a46c133558678b96ce921dc1393cabb8d8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 9 Nov 2022 09:55:07 +0100 Subject: [PATCH] Gesamtsicherheiten --- Aviso/frmGesamtsicherheitenNEU.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 338068b..3926f19 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1155,9 +1155,9 @@ Public Class frmGesamtsicherheitenNEU ATBNr = dgvGesamtsicherheit.SelectedRows(0).Cells("gs_ATBNr").Value.ToString - If dgvGesamtsicherheit.SelectedRows.Count > 1 Then + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then - For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows If row.Cells("gs_ATBNr").Value.ToString <> ATBNr Then mutlitpleATBNr = True End If @@ -1181,9 +1181,9 @@ Public Class frmGesamtsicherheitenNEU ATCNr = dgvSicherheitsPos.SelectedRows(0).Cells("gsp_ATCNr").Value.ToString - If dgvSicherheitsPos.SelectedRows.Count > 1 Then + If dgvSicherheitsPos.SelectedRows.Count > 0 Then - For Each row As DataGridViewRow In dgvSicherheitsPos.Rows + For Each row As DataGridViewRow In dgvSicherheitsPos.SelectedRows If row.Cells("gsp_ATCNr").Value.ToString <> ATCNr Then mutlitpleATCNr = True End If @@ -1215,7 +1215,7 @@ Public Class frmGesamtsicherheitenNEU MsgBox("Bitte ATR-Nr angeben!") Exit Sub End If - If dgvGesamtsicherheit.SelectedRows.Count > 1 Then + If dgvGesamtsicherheit.SelectedRows.Count > 0 Then For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)