or
If e.Column.Name = "colResult" Then
If e.Row.RowInfo.Index > -1 Then
Dim dataItem As GetLastTestResultResult = DirectCast(e.Row.RowInfo.DataBoundItem, GetLastTestResultResult)
Dim term? As Integer = dataItem.TCount
If term.HasValue AndAlso term > 0 Then
Dim elem As New CustomDropdownCellElement(e.Column, e.Row)
elem.SetComboboxValue(CInt(dataItem.Result))
e.CellType = GetType(CustomDropdownCellElement)
e.CellElement = elem
end if
end if
end if