Dim Query1 = von n im str. Spalte („, ")
tmpNav.Append („ “ u. vbCrLf)
Für jedes n in Query1
Wenn ZipCM.Security.CanAccess (neue ganze Zahl () {1, 2, 3, 4, 5}) dann
Schwach Query2 = von NL in n.ToString (). Spalte („|") wo NL (1) = „0“ und (NL (2) = „1“ oder NL (2) = „2“) tmpNav.Append („- “ u. Query2.Count u. „
“ u. vbCrLf)
ElseIf nicht (ZipCM.Security.CanAccess (neue ganze Zahl () {1, 2, 3, 4, 5})) Dann
Schwach Query2 = von NL in n.ToString (). Spalte („|") wo NL (1) = „0“ und (NL (2) = „0“ oder NL (2) = „2“) tmpNav.Append („- “ u. Query2.Count u. „
“ u. vbCrLf)
Sonst
Schwach Query2 = von NL in n.ToString (). Spalte („|") wo NL (1) = „0“ und (NL (2) = „2“)
tmpNav.Append („- “ u. Query2.Count u. „
“ u. vbCrLf)
Beenden wenn
Zunächst
tmpNav.Append („ “ u. vbCrLf)
|