Несколько операторов if в цикле for

Question

Помогите, пожалуйста, ниже мой код в Visual Basic.

My for петля не переходит ко второму состоянию if. Он просто проверяет первый. Что мне здесь не хватает?

Спасибо!

If Not dsMarketingOrdIDs Is Nothing Then 
    For i = 0 To dsMarketingOrdIDs.Tables(0).Rows.Count - 1 
     If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 5 Then 
      If Not objALUtil.CheckPermission("KBAUTHORXTREMESUPPORT") Then 
       blnKbAuthorXtremeSupport = True 
      End If 
      If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 152 Then 
       If Not objALUtil.CheckPermission("KBAUTHORXTREMEPORTAL") Then 
        blnKbAuthorXtremePortal = True 

       End If 
      End If 
     End If 
    Next 
End If 

Answer 1

Должно быть что-то вроде этого:

If Not dsMarketingOrdIDs Is Nothing Then 
    For i = 0 To dsMarketingOrdIDs.Tables(0).Rows.Count - 1 
     If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 5 Then 
      If Not objALUtil.CheckPermission("KBAUTHORXTREMESUPPORT") Then 
       blnKbAuthorXtremeSupport = True 
      End If 
     End If 
     If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 152 Then 
      If Not objALUtil.CheckPermission("KBAUTHORXTREMEPORTAL") Then 
       blnKbAuthorXtremePortal = True 
      End If 
     End If 
    Next 
End If 

Или еще проще:

If Not dsMarketingOrdIDs Is Nothing Then 
    For i = 0 To dsMarketingOrdIDs.Tables(0).Rows.Count - 1 
     blnKbAuthorXtremePortal = Not objALUtil.CheckPermission("KBAUTHORXTREMESUPPORT") _ 
      AndAlso (dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 5 OrElse dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 152) 
    Next 
End If 

Answer 2

Пытались для Вас еще если?

If Not dsMarketingOrdIDs Is Nothing Then 
    For i = 0 To dsMarketingOrdIDs.Tables(0).Rows.Count - 1 
     If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 5 Then 
      If Not objALUtil.CheckPermission("KBAUTHORXTREMESUPPORT") Then 
       blnKbAuthorXtremeSupport = True 
      Else If dtMarketingOrdIDs.Rows(i)("marketing_org_id") = 152 Then 
       If Not objALUtil.CheckPermission("KBAUTHORXTREMEPORTAL") Then 
        blnKbAuthorXtremePortal = True 
       End If 
      End If 
     End If 
    Next 
End If 

Также, как может ваш MARKETING_ORG_ID быть 5 и 152 одновременно?

dtMarketingOrdIDs.Rows (я) ("marketing_org_id") = 5

dtMarketingOrdIDs.Rows (I) ("marketing_org_id") = 152