100分求把vb中的简单代码转换成c#的代码。急用
Public Sub Add_node(ByVal TV As TreeView)
Dim RootName As String
Dim i As Integer
Dim s As String
RootName = "公路运输OLAP分析系统"
TV.Nodes.Clear
TV.Nodes.Add , , "Root", RootName, 1
'''''加入用户常用菜单
If (adoCat.ActiveConnection Is Nothing) Then Exit Sub
For Each adoCube In adoCat.CubeDefs
'Print adoCube.Name
TV.Nodes.Add "Root", tvwChild, adoCube.Name, adoCube.Name, 2
TV.Nodes.Add adoCube.Name, tvwChild, adoCube.Name & "维度", "维度", 3
For Each adoDem In adoCube.Dimensions
If adoDem.Name = "Measures" Then
TV.Nodes.Add adoCube.Name, tvwChild, adoCube.Name & "度量值", "度量值", 3
's = adoDem.Hierarchies
For i = 0 To adoDem.Hierarchies(0).Levels(0).Members.Count - 1
TV.Nodes.Add adoCube.Name & "度量值", tvwChild, adoCube.Name & adoDem.Hierarchies(0).Levels(0).Members(i).Name, adoDem.Hierarchies(0).Levels(0).Members(i).Name, 5
Next i
Else
TV.Nodes.Add adoCube.Name & "维度", tvwChild, adoCube.Name & adoDem.Name, adoDem.Name, 4
For i = 1 To adoDem.Hierarchies(0).Levels.Count - 1
TV.Nodes.Add adoCube.Name & adoDem.Name, tvwChild, adoCube.Name & adoDem.Hierarchies(0).Levels(i).Caption, adoDem.Hierarchies(0).Levels(i).Caption, 5 + i
Next i
End If
Next
Next
TV.Nodes("Root").Expanded = True
End Sub
希望高手们能够帮帮忙了啊