Initial commit

BEA - Kopie/Klassen/FilterClass.vb

@@ -0,0 +1,37 @@
+Public Class FilterClass
+
+    Dim m_columname As String
+    Dim m_filtervalue As String
+    Property Columname() As String
+        Get
+            Return m_columname
+        End Get
+        Set(ByVal value As String)
+            m_columname = value
+        End Set
+    End Property
+
+    Property FilterValue() As String
+        Get
+            Return m_filtervalue
+        End Get
+        Set(ByVal value As String)
+            m_filtervalue = value
+        End Set
+    End Property
+
+    Sub New(ByVal columname As String, ByVal filtervalue As String)
+        MyBase.New()
+        Me.Columname = columname
+        Me.FilterValue = filtervalue
+    End Sub
+
+    Sub New()
+        MyBase.New()
+    End Sub
+    Public Sub add(ByVal columname As String, ByVal filtervalue As String)
+        Me.Columname = columname
+        Me.FilterValue = filtervalue
+    End Sub
+End Class
+