Why do I get the following:
BC30616: Variable 'dockableObject' hides a variable in an enclosing block.
Line 351: Dim CommandClicked As String = String.Format("{0}", commandEventArgs.Command.Name, dockableObject.ID)
Line 352:
Line 353: For Each dockableObject As RadDockableObject In RadDockingManager1.DockableObjects
Line 354: dockableObject.Width = Unit.Empty
Line 355: dockableObject.Height = Unit.Empty
My Code:
Dim dockableObject As RadDockableObject = CType(sender, RadDockableObject)
Dim commandEventArgs As RadDockableObjectCommandEventArgs = CType(e, RadDockableObjectCommandEventArgs)
Dim CommandClicked As String = String.Format("{0}", commandEventArgs.Command.Name, dockableObject.ID)
If CommandClicked = "rdocSaveView" Then
For Each dockableObject As RadDockableObject In RadDockingManager1.DockableObjects
dockableObject.Width = Unit.Empty
dockableObject.Height = Unit.Empty
Next
Dim myCommand As SqlCommand
Dim insertCmd As String
If Request.QueryString("View") = "Contact" Then
insertCmd = "update WebUsersProfiles SET SavedStateContactView=@SavedState WHERE UserID='" & Session("UserID") & "';"
Else If Request.QueryString("View") = "Company" Then
insertCmd = "update WebUsersProfiles SET SavedStateCompanyView=@SavedState WHERE UserID='" & Session("UserID") & "';"
Else If Request.QueryString("View") = "Property" Then
insertCmd = "update WebUsersProfiles SET SavedStatePropertyView=@SavedState WHERE UserID='" & Session("UserID") & "';"
Else If Request.QueryString("View") = "Trans" Then
insertCmd = "update WebUsersProfiles SET SavedStateTransView=@SavedState WHERE UserID='" & Session("UserID") & "';"
End If
myCommand = New SqlCommand(insertCmd, myConnection)
myCommand.Parameters.Add(New SqlParameter("@SavedState", SqlDbType.VarChar, 5000)).Value = RadDockingManager1.SaveState()
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
Response.Redirect(Request.RawUrl)
End If