Visual Basic

jishbalan wrote:

But these won't work , if the folder is across network. Getting "permission denied" error..

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