主题：[求助]目录树

此主题相关图片如下：图像 2.png

 

 

If e.Node.Name = "显示所有行" Then
    Tables(e.Form.Name & "_Tbl_Main").Filter = ""
Else
    Dim FilterCol() As String = e.Form.Controls("Cmb_FilterCol").Value.Split(",")
    Dim TmpStr() As String = e.Node.FullPath.Split("\")
    Dim FilterStr As String
    For i As Integer = 0 To e.Node.Level
        FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
    Next
    FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
    Tables(e.Form.Name & "_Tbl_Main").Filter = FilterStr
End If

 

 

 

老师：我的目录树窗口不显示目录树

 

 

Dim CmdDock As New C1Command.C1CommandDock
CmdDock.Name = "CmdDock"
CmdDock.BackColor = System.Drawing.SystemColors.Control
CmdDock.Dock = Windows.Forms.DockStyle.Left
CmdDock.AutoDockTop = False
CmdDock.AutoDockBottom = False
CmdDock.DockingStyle = C1Command.DockingStyle.VS2005
e.Form.Panel.Controls.Add(CmdDock)

Dim TabCtl As C1Command.C1DockingTab = e.Form.Controls("TabControl").BaseControl
TabCtl.VisualStyle = C1Command.VisualStyle.Office2007Blue
TabCtl.HotTrack = True
TabCtl.ShowCaption = True
TabCtl.ShowTabList = True
TabCtl.CanAutoHide = True
CmdDock.Controls.Add(TabCtl)
'-------------------------------------------------

With Tables(e.Form.Name & "_Tbl_Main")
    .EnterKeyActionDown = True
    .AutoSizeCols
    Dim Cmb_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("Cmb_FilterCol")
    For Each C As Col In .Cols
        Cmb_FilterCol.Items.Add(C.Name)
    Next
    Cmb_FilterCol.Value = "商品ID,客户名称"
End With

这是其他窗口拷贝过来的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰净水.table

好了谢谢

我以前激活过的电脑现在又要叫我重新激活

硬盘没有变，现在激活信息不能返回点击激活按钮一直不动