Gestellungen

Aviso/frmGesamtsicherheitenNEU.vb

@@ -47,6 +47,8 @@ Public Class frmGesamtsicherheitenNEU
 
     Public dtSicherheiten As New DataTable()
 
+    Public grenzstelle As String = ""
+
     Public firmaId As Integer
 
 
@@ -96,6 +98,14 @@ Public Class frmGesamtsicherheitenNEU
                         Exit For
                     End If
                 Next
+            ElseIf grenzstelle <> "" Then
+
+                For i As Integer = 0 To cboWarenort.Items.Count - 1
+                    If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then
+                        cboWarenort.SelectedIndex = i
+                        Exit For
+                    End If
+                Next
             End If
 
         Else