- 1
- 2
- 3
- 4
If objRow.IsQuestion_SpecialismNull Then
'--- ASK DEAN
Return True
End If
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 3
−132.6
If objRow.IsQuestion_SpecialismNull Then
'--- ASK DEAN
Return True
End If
Dean - наш тим лид
−366.8
Public Overrides Function DataChanged() As Boolean
Const CONST_PROC_NAME = "DataChanged"
Try
Return False
Catch objExcp As Exception
Me.DisplayMessageBox("Unexpected Exception in " & CONST_CLASS_NAME & "." & CONST_PROC_NAME & " : " & objExcp.Message.ToString, MessageBoxIcon.Error)
End Try
End Function
По суровому закону нашего проекта каждая функция должна быть обернута ловлей эксепшиона. Каждая. Всегда.
−129.8
For intAtts As Integer = 5 To strParams.Length - 1
Select Case (intAtts + 1) Mod 3
Case 0
'--- Set where to find the attachments
Select Case strParams(intAtts).ToUpper
Case "TASKVIEW"
strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
Case "WORKITEM"
strAttach = WorkItem.WorkItemContainer.ToString & ","
Case "CASE"
strAttach = BFECase.CaseContainerID.ToString & ","
End Select
Case 1
'--- Set the relative path of where to find the attachments
strAttach = strAttach & strParams(intAtts) & ","
Case 2
'--- Set the type of document used to find the attachments
strAttach = strAttach & strParams(intAtts)
arrAttachments.Add(strAttach)
strAttach = ""
End Select
Next intAtts
вот и попробуй пойми что в этих массивах по какому принципу лежит