62,243
社区成员




Protected Overrides Sub InitializeCulture()
If Session("culture") = "" Then
Session("culture") = Request.UserLanguages(0)
End If
Dim userculture As String = Session("culture")
Dim str() As String = userculture.Split("-")
If str.Length > 2 Then
userculture = str(0) + "-" + str(1)
End If
If Not userculture = "" Then
Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo(userculture)
Threading.Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(userculture)
End If
End Sub
Sub AA011E_treeView()
Label1.Text = "AA011E"
Dim tr As TreeView = ElementStructureTree
Dim trNode0 As TreeNode = New TreeNode("全部检查", "全部检查", "", "~/AA011/AA011E-Search.aspx", "")
NG.aspx", "")
tr.Nodes(0).ChildNodes.Clear()
tr.Nodes(0).ChildNodes.Add(trNode0)
End Sub