Visual Basic

Private Sub CheckRules(ByVal dsdata As Prop_DAL.dsProperty)
        Dim strMsg As String
        Dim row As Prop_DAL.dsProperty.ClientsRow
        'Iterating through the Dataset and Checking the Rules
        For Each row In dsdata.Clients.Rows
            If row.RowState = DataRowState.Added Or _
            row.RowState = DataRowState.Modified Then
                'Start Checking the Rules now
                If row.Client_Name.Trim = "" Then
                    MsgBox("Name Cannot be Empty")
                End If
                If row.Client_Address = "" Then
                    MsgBox("Address Cannot be Empty")

                End If
                If row.Client_ID.ToString.Length > 13 Then
                    MsgBox("ID number must less than 13")

                End If

            End If

        Next
        If strMsg <> "" Then
            'throw a new ApplicationException
            'with our Custom Error message in it
            Throw New ApplicationException(strMsg)
        End If

    End Sub

Private Sub CheckRules(ByVal dsdata As Prop_DAL.dsProperty)

Private Sub CheckRules(ByVal dsdata As Dataset)

Dim row As Prop_DAL.dsProperty.ClientsRow

Dim row as dsdata

Public Function Rating(ByVal iNPS As String, ByRef iRatings() As String) As String
    Select Case iNPS
        Case "1/2"
            iRatings = New String() {"150#", "300#"} 
    End Select
End Function

Public Function Rating(ByVal iNPS As String) As String()
    Dim result As String()
 
    Select Case iNPS
        Case "1/2"""
            result = New String() {"150#", "300#"}
        .
        .
        .
    End Select
 
    Return result
End Function

1.0 and 1.0 SP1, SP2, and SP3
1.1 and 1.1 SP1
2.0 and 2.0 SP1 and SP2
3.0 and 3.0 SP1 and SP2
3.5 and 3.5 SP1