Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
25
How to upgrade from Ultrawebgrid to webdatagrid
posted

 

I have question about following  words in Bold of convert  Ultrawebgrid   to webdatagrid

 For Each ugcResult As UltraGridColumn In webGrid.Columns

                ctrlNew = Nothing
                metNew = Nothing
                mevNew = Nothing
                smpNew = Nothing

                strEditorId = "edtColumn" & arrayIndex & "_" & ugcResult.Index

                Select Case ugcResult.Type
                    Case ColumnType.CheckBox
                        If ugcResult.Header.Caption Is Nothing Then ugcResult.Header.Caption = ""
                        If Not ugcResult.Header.Caption.StartsWith("<input ") Then
                            ugcResult.Header.Caption = "<input id=""" & strWebGridClientId & "_chkheader_" & ugcResult.Index & _
                                """ type=""checkbox"" onmousedown=""window.event.cancelBubble=true;"" onclick=""_check_all('" & strWebGridClientId & "'," & _
                                ugcResult.Index & ")""><span style=""vertical-align:top"">&nbsp;" & ugcResult.Header.Caption & "</span>"
                        End If
                        ctrlNew = New CheckBox
                        strEditorId = "chkColumn" & arrayIndex & "_" & ugcResult.Index

                    Case ColumnType.DropDownList

                        ctrlNew = New DropDownList

                        For Each vliContent In ugcResult.ValueList.ValueListItems
                        
                            If vliContent.DataValue IsNot Nothing Then
                                If vliContent.DataValue.ToString = "" Then vliContent.DataValue = " "
                            End If
                        Next
                    Case Else
                        ctrlNew = New TextBox
                End Select

                ctrlNew.ID = strEditorId
                ctrlNew.EnableViewState = False
                udpDynamicControl.ContentTemplateContainer.Controls.Add(ctrlNew)

                ctrlNew.Width = Unit.Percentage(100)
                ctrlNew.Style("display") = "none"
                If TypeOf ctrlNew Is CheckBox Then
                    attNew = CType(ctrlNew, CheckBox).InputAttributes
                    attNew.Add("style", "display:none")
                Else
                    attNew = ctrlNew.Attributes
                End If

                attNew.Add("onblur", "_editor_valueChange()")
                attNew.Add("onselectstart", "window.event.cancelBubble=true;")
                attNew.Add("onkeydown", "_editor_keyDown('" & strWebGridClientId & "','')")
                ctrlNew.Visible = webGrid.Visible

                If webGrid.Visible Then
                    aryColumnEditor.Add("'" & ctrlNew.ClientID & "'")
                Else
                    aryColumnEditor.Add("null")
                End If
                odColumnEditor.Add(ugcResult.BaseColumnName, ctrlNew.UniqueID)

                Select Case True
                    Case TypeOf ctrlNew Is TextBox
                        Select Case ugcResult.Type
                            Case GetType(String).FullName, GetType(DateTime).FullName, "System.Date"
                                metNew = New MaskedEditExtender
                                Select Case ugcResult.Format
                                    Case "yyyy/MM/dd"
                                        metNew.MaskType = MaskedEditType.Date
                                        metNew.Mask = "9999/99/99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                    Case "yyyy/MM/dd HH:mm:ss"
                                        metNew.MaskType = MaskedEditType.DateTime
                                        metNew.Mask = "9999/99/99 99:99:99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                    Case "yyyy/MM/dd HH:mm"
                                        metNew.MaskType = MaskedEditType.DateTime
                                        metNew.Mask = "9999/99/99 99:99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                    Case "yy/MM/dd HH:mm"
                                        metNew.MaskType = MaskedEditType.DateTime
                                        metNew.Mask = "99/99/99 99:99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                    Case "yy/MM/dd"
                                        metNew.MaskType = MaskedEditType.Date
                                        metNew.Mask = "99/99/99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                    Case "HH:mm"
                                        metNew.MaskType = MaskedEditType.Time
                                        metNew.Mask = "99:99"
                                        metNew.UserDateFormat = MaskedEditUserDateFormat.None
                                    Case "yyyy/MM"
                                        metNew.Mask = "9999/99"
                                    Case Else
                                        Select Case ugcResult.DataType
                                            Case "System.Date"
                                                metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                                metNew.MaskType = MaskedEditType.Date
                                                metNew.Mask = "9999/99/99"
                                                ugcResult.DataType = "yyyy/MM/dd"
                                            Case GetType(DateTime).FullName
                                                metNew.UserDateFormat = MaskedEditUserDateFormat.YearMonthDay
                                                metNew.MaskType = MaskedEditType.DateTime
                                                metNew.Mask = "9999/99/99 99:99:99"
                                                ugcResult.Format = "yyyy/MM/dd HH:mm:ss"
                                            Case Else
                                                metNew.PromptCharacter = ""
                                                metNew.Chinese = True
                                                metNew.ClearMaskOnLostFocus = False
                                                If ugcResult.FieldLen = 0 Then
                                                    CType(ctrlNew, TextBox).MaxLength = 20
                                                    metNew.Mask = "".PadRight(20, "?"c)
                                                Else
                                                    CType(ctrlNew, TextBox).MaxLength = ugcResult.FieldLen
                                                    metNew.Mask = "".PadRight(ugcResult.FieldLen, "?"c)
                                                End If
                                        End Select
                                End Select
                            Case GetType(Integer).FullName
                                metNew = New MaskedEditExtender
                                metNew.PromptCharacter = ""
                                If ugcResult.FieldLen = 0 Then
                                    metNew.Mask = "".PadRight(20, "9"c)
                                Else
                                    metNew.Mask = "".PadRight(ugcResult.FieldLen, "9"c)
                                End If
                            Case GetType(Byte).FullName
                                metNew = New MaskedEditExtender
                                metNew.PromptCharacter = ""
                                If ugcResult.FieldLen = 0 Then
                                    metNew.Mask = "".PadRight(3, "9"c)
                                Else
                                    metNew.Mask = "".PadRight(ugcResult.FieldLen, "9"c)
                                End If
                            Case GetType(Decimal).FullName, GetType(Single).FullName, GetType(Double).FullName
                                metNew = New MaskedEditExtender
                                metNew.PromptCharacter = ""
                                If ugcResult.FieldLen = 0 Then
                                    metNew.Mask = "".PadRight(20, "N"c)
                                Else
                                    metNew.Mask = "".PadRight(ugcResult.FieldLen, "N"c)
                                End If
                                metNew.Filtered = "."
                            Case Else
                                metNew = New MaskedEditExtender
                                metNew.PromptCharacter = ""
                                metNew.Chinese = True
                                metNew.ClearMaskOnLostFocus = False
                                If ugcResult.FieldLen = 0 Then
                                    CType(ctrlNew, TextBox).MaxLength = 20
                                    metNew.Mask = "".PadRight(20, "?"c)
                                Else
                                    CType(ctrlNew, TextBox).MaxLength = ugcResult.FieldLen
                                    metNew.Mask = "".PadRight(ugcResult.FieldLen, "?"c)
                                End If
                        End Select

            Next

Any help would be appreciated

Thanks

Jacksonkao