Validating data with Flat File Checker

Imports System.Xml


Public Class EmptyChecker
    Inherits RequiredChecker

    Public Sub New(ByVal parent As GeneralChecker, ByVal column As DataColumn)
        MyBase.New(column, parent)
    End Sub

    Public Overrides ReadOnly Property Type() As DataRuleType
        Get
            Return DataRuleType.Empty
        End Get
    End Property
    Friend Overrides Function GetNode() As XmlNode
        Dim chkXml As XmlElement
        chkXml = Document.CreateElement("Empty", "")
        Me.AppendWhereXml(chkXml)
        Me.AppendActionXml(chkXml)
        Return chkXml
    End Function

    Public Overrides ReadOnly Property RuleName() As String
        Get
            Return "Empty"
        End Get
    End Property
End Class