Syncfusion GridControl Reading CellValue using Generic Function

-

I have been facing issue while accessing the cellValue method of GridControl. Each CellType has different way of returning the value of cell. To handle this I have developed a generic function which take few parameter and return the cell value as per Type required by user. 


  Public Enum CellValueReturnType

        [String] = 0

        [Number] = 1

        [Date] = 3

        [Boolean] = 4

        [Time] = 5

        [FormatText] = 6

    End Enum

 

 

Public Shared Function GetGridCellValue(ByVal GrdCtl As ARCGridControl, ByVal RowIndex As Integer, ByVal ColIndex As Integer, ByVal ReturnType As CellValueReturnType) As Object

 

        Dim CellValue As Object = Nothing

 

        If RowIndex <> 0 Then

            If GrdCtl.Item(RowIndex, ColIndex).CellType Is "MaskEdit" Then

                If InStr(GrdCtl.Item(RowIndex, ColIndex).FormattedText, ".") Then

                    CellValue = Val(GrdCtl.Item(RowIndex, ColIndex).FormattedText)

                Else

 

                    If GrdCtl.Item(RowIndex, ColIndex).MaskEdit.Mask = "99/99/9999" OrElse GrdCtl.Item(RowIndex, ColIndex).MaskEdit.Mask = "99/99/99" Then

                        If IsDate(GrdCtl.Item(RowIndex, ColIndex).FormattedText) = True Then

                            CellValue = GrdCtl.Item(RowIndex, ColIndex).FormattedText

                        End If

 

                    ElseIf ReturnType = CellValueReturnType.Date AndAlso GrdCtl.Item(RowIndex, ColIndex).FormattedText.ToString <> String.Empty Then

                        CellValue = GrdCtl.Item(RowIndex, ColIndex).FormattedText  'Return Value Entered by User

 

                    ElseIf ReturnType = CellValueReturnType.Time AndAlso GrdCtl.Item(RowIndex, ColIndex).FormattedText.ToString <> String.Empty Then

                        If GrdCtl.Item(RowIndex, ColIndex).FormattedText.ToString.Trim <> ":" Then

                            CellValue = GrdCtl.Item(RowIndex, ColIndex).FormattedText 

                        End If

 

                    End If

                End If

 

            ElseIf GrdCtl.Item(RowIndex, ColIndex).CellType Is "ComboBox" Or GrdCtl.Item(RowIndex, ColIndex).CellType Is "GridListControl" Then

                If IsNothing(GrdCtl.Item(RowIndex, ColIndex).CellValue) = False AndAlso GrdCtl.Item(RowIndex, ColIndex).CellValue.ToString <> "" Then

                                        If ReturnType = CellValueReturnType.FormatText Then

                        CellValue = GrdCtl.Item(RowIndex, ColIndex).FormattedText

                    Else

                        CellValue = GrdCtl.Item(RowIndex, ColIndex).CellValue

                    End If

 

                End If

 

            ElseIf GrdCtl.Item(RowIndex, ColIndex).CellType Is "CheckBox" Then

                If GrdCtl.Item(RowIndex, ColIndex).CellValue.ToString.Length <> 0 AndAlso CBool(GrdCtl.Item(RowIndex, ColIndex).CellValue) = True Then

                    CellValue = True

                Else

                    CellValue = False

                End If

 

            ElseIf GrdCtl.Item(RowIndex, ColIndex).CellType Is "Currency" Then 'To Remove the Comma from CellValue

                If IsNothing(GrdCtl.Item(RowIndex, ColIndex).CellValue) = False AndAlso IsDBNull(GrdCtl.Item(RowIndex, ColIndex).CellValue) = False AndAlso GrdCtl.Item(RowIndex, ColIndex).CellValue.ToString <> "" Then

                    If GrdCtl.Item(RowIndex, ColIndex).CellValue <> 0 Then

                        CellValue = Convert.ToDecimal(GrdCtl.Item(RowIndex, ColIndex).CellValue)

                    End If

                End If

 

            ElseIf GrdCtl.Item(RowIndex, ColIndex).CellType Is "FormulaCell" Then

                If IsNothing(GrdCtl.Item(RowIndex, ColIndex).FormattedText) = False Then

                    CellValue = IIf(GrdCtl.Item(RowIndex, ColIndex).FormattedText = String.Empty, 0, GrdCtl.Item(RowIndex, ColIndex).FormattedText)

                End If

            Else

                If GrdCtl.Item(RowIndex, ColIndex).CellValue IsNot Nothing AndAlso GrdCtl.Item(RowIndex, ColIndex).CellValue.ToString <> "" Then

                    CellValue = GrdCtl.Item(RowIndex, ColIndex).CellValue.ToString

                End If

            End If

        End If

 

        If IsNothing(CellValue) = True Then

            If ReturnType = CellValueReturnType.Number Then

                Return 0

 

            ElseIf ReturnType = CellValueReturnType.Boolean Then                 Return False

            Else

                Return ""

            End If

        Else

            Return CellValue

        End If

 

    End Function

Comments

Post a Comment

Popular posts from this blog

Shared / Static Class in vb.net/C#

-
Image
Shared / Static Class in vb.net/C# VB.net     : Shared C#            : Static You can’t create object of Shared Class Below Image show Properties and Method are not visible for Shared/Static Class Public Class Form1     Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click         'Module is VB.net are Shared Type Class.         'Shared Class Example is ARC.Tools.GRIDManager         'When Class s Defined as Shared There no need to create object of Class.         'If you just want to create a class that you can't inherit, in C# you can use         ' Sealed, and in VB.Net use NotInheritable.         'The VB.Net equivalent of s...
Read more

Xamarin Forms : PopUp Page with RG.Plugins.Popup

-
Image
How to Show PopUp Page In Xamarin Forms Step 1 First, we need to add the Third Page Plugin to achieve the same. [ Rg.Plugins.Popup ] Go to Manage Nuget Packages - > Search for Rg.Plugins.Popup Once the plugin is installed in the Project We need to configure same in Android and IOS Projects In Android   - Go to MainActivity.cs Code:     Rg.Plugins.Popup. Popup .Init( this , savedInstanceState); In IOS –   Go to   - AppDelegate.cs Code : Rg.Plugins.Popup. Popup .Init(); Now Back to Main Project (PCL) Step – 1 :   Add Page in Project Once Added Page Change the Tag of Page Default Page has Content page as Tag which needs to be replaced with PopUpPage Class  :  Default Page:- Class < ContentPage  xmlns ="http://xamarin.com/schemas/2014/forms" Change To < pages : PopupPage  xmlns ="http://xamarin.com/schemas/2014/forms" This is how it should Lo...
Read more

Text was truncated or one or more characters had no match in the target code page.". (SQL Server Import and Export Wizard)

-
Image
  Error While importing Excel Data using SQL Server Import Wizard   - Executing (Error) Messages Error 0xc020901c: Data Flow Task 1: There was an error with Source - Worksheet$.Outputs[Excel Source Output].Columns[Address] on Source - Worksheet$.Outputs[Excel Source Output]. The column status returned was: "Text was truncated or one or more characters had no match in the target code page.".  (SQL Server Import and Export Wizard)   Error 0xc020902a: Data Flow Task 1: The "Source - Worksheet$.Outputs[Excel Source Output].Columns[Address]" failed because truncation occurred, and the truncation row disposition on "Source - Worksheet$.Outputs[Excel Source Output].Columns[Address]" specifies failure on truncation. A truncation error occurred on the specified object of the specified component.  (SQL Server Import and Export Wizard)   - Executing (Error) Messages Error 0xc020901c: Data Flow Task 1: There was an error with Source - Worksheet$.Outputs[Excel Source O...
Read more