謝謝回答!!, 我是從討論區不錯的案例中,想試試看於開發版中測試afterload代碼 如下:
'设置左侧停靠-------------------------------
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 = "产品,客户"
End With