此主题相关图片如下：图像 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
这是其他窗口拷贝过来的
[此贴子已经被作者于2014-9-22 11:59:00编辑过]
加好友 
发短信
Post By：2014/9/22 11:57:00 [只看该作者]
