MS

GUIs.ZooFlow/ModuleHelpers.vb

@@ -58,6 +58,9 @@ Module ModuleHelpers
     End Sub
     Public Function FilterDatatable(myDatatable As DataTable, myFilter As String, mycheckColumn As String, pSortString As String, returnDT As Boolean) As Object
         Try
+            If myDatatable.Rows.Count = 0 Then
+                Return Nothing
+            End If
             Dim dv As DataView = myDatatable.DefaultView
             dv.RowFilter = myFilter
             If dv.Count = 1 And returnDT = False Then