class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
|
class= del
>Dim notpretty " del class= " del id= " codeSnippet938263 del „ & vbCrLf)
Per ogni n in Query1
Se ZipCM.Security.CanAccess (nuovo numero intero () {1, 2, 3, 4, 5}) allora
Fioco Query2 = dalla nl in n.ToString (). Spaccatura (“|") dove la nl (1) = “0„ e (la nl (2) = “1„ o la nl (2) = “2„) tmpNav.Append (“"" del site_nav del "" del class= di „ & Query2.Count & “„ & vbCrLf)
ElseIf non (ZipCM.Security.CanAccess (nuovo numero intero () {1, 2, 3, 4, 5})) Allora
Fioco Query2 = dalla nl in n.ToString (). Spaccatura (“|") dove la nl (1) = “0„ e (la nl (2) = “0„ o la nl (2) = “2„) tmpNav.Append (“"" del site_nav del "" del class= di „ & Query2.Count & “„ & vbCrLf)
Altrimenti
Fioco Query2 = dalla nl in n.ToString (). Spaccatura (“|") dove la nl (1) = “0„ e (la nl (2) = “2„)
tmpNav.Append (“"" del site_nav del "" del class= di „ & Query2.Count & “„ & vbCrLf)
Concluder se
Dopo
tmpNav.Append (“„ & vbCrLf)
|