Tuesday, November 20, 2012
SortedDictionary Powerful tool
Dim CheckSecurity As ctrl_secure = ctrl_secure
Dim bValue As Boolean
Dim dic As SortedDictionary(Of String, Int32) = CType(Session("UserAuthorizations"), SortedDictionary(Of String, Int32))
If ((dic.ContainsKey("A")) And (dic.Item("A") > 1)) Or ((dic.ContainsKey("B")) And (dic.Item("B") > 1)) Then
bValue = True
End If
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment