Telerik Radgrid контрольный вопрос - PullRequest
0 голосов
/ 02 октября 2018
Protected Sub GrdCodes_ItemDataBound(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles grdCodes.ItemDataBound
Try
  If (TypeOf e.Item Is GridDataItem) Then
    Dim item = DirectCast(e.Item, GridDataItem)
    Dim btnDelete = DirectCast(item("DeleteColumn").Controls(0), LinkButton)
    Dim btnEdit = DirectCast(item("EditColumn").Controls(0), LinkButton)
    btnDelete.Visible = HasRights()
    btnEdit.Visible = HasRights()
  End If
  If (TypeOf e.Item Is GridEditableItem AndAlso DirectCast(e.Item, GridEditableItem).IsInEditMode) AndAlso Not TypeOf e.Item.DataItem Is GridInsertionObject Then
            Dim editedItem = DirectCast(e.Item, GridEditableItem)
            Dim txtBc = DirectCast(e.Item.FindControl("Barcode").Controls(0), TextBox)
            txtBc.Enabled = False
  End If
Catch ex As Exception
  Logger.WriteToLog(LoggingBase.eLoggingSeverity.eErrorSeverity, "GrdCodes_ItemDataBound failed", ex, Now)
End Try
End Sub

ошибка при txtBc.Enabled = False, ошибка установки ссылки на объект не происходит

нам нужно отключить конкретное текстовое поле в режиме редактирования, но оно завершается ошибкой и перехватывается исключение

...