Case "EDIT"
MicUi.PageFocus(Me.txtExceedReason)
Public Sub PageFocus(ByVal webControl As WebControl)
Dim lsClientID As String = webControl.ClientID
If TypeOf webControl Is RadioButtonList OrElse TypeOf webControl Is CheckBoxList Then
lsClientID = String.Format("{0}_0", lsClientID)
JsAppend(JsAppendEnum.window_onload, JsAddTry(String.Format("document.all.{0}.focus();", lsClientID), False))
ElseIf TypeOf webControl Is DropDownList Then
JsAppend(JsAppendEnum.window_onload, JsAddTry(String.Format("document.all.{0}.focus();", lsClientID), False))
Else
JsAppend(JsAppendEnum.window_onload, JsAddTry(String.Format("document.all.{0}.focus();document.all.{0}.select();", lsClientID), False))
End If
End Sub