fix verwahrungen (sehr seltener fehler)!
This commit is contained in:
@@ -422,7 +422,7 @@ Public Class cSicherheiten
|
||||
Dim dt As New DataTable
|
||||
dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True)
|
||||
|
||||
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
If dt.Rows.Count > 0 AndAlso (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
|
||||
posNr = dt.Rows(0).Item(0)
|
||||
|
||||
@@ -441,7 +441,7 @@ Public Class cSicherheiten
|
||||
Dim dt As New DataTable
|
||||
dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True)
|
||||
|
||||
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
If dt.Rows.Count > 0 AndAlso (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
|
||||
posNr = dt.Rows(0).Item(0)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user