Public Shared Function selectedTextValuefromGridViewDataComboBoxColumn(ByVal sender As Object, ByVal fieldName As String, ByVal val As Object) As String
Dim column As GridViewDataComboBoxColumn = DirectCast(TryCast(sender, ASPxGridView).Columns(fieldName), GridViewDataComboBoxColumn)
Dim item As DevExpress.Web.ASPxEditors.ListEditItem = column.PropertiesComboBox.Items.FindByValue(val)
Dim valueTextCB As String = ""
If item IsNot Nothing Then
valueTextCB = item.Text
End If
Return valueTextCB
End Function