此主题相关图片如下：图像 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

这是其他窗口拷贝过来的

激活过的电脑，如果电脑硬件等改变，会导致机器码改变，需要重新激活。

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

联系客服，获取激活码。