主题：[求助]表

参考

 

http://www.foxtable.com/help/topics/1907.htm

 

 什么意思？你想说什么？

 你把这个控件，属性->最顶层->True

 不理解你什么意思，做个简单的例子发上来看，哪里有问题。

 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.Controls("TabControl1").Basecontrol.tabpages(0).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

Tables("窗口1_Tbl_Main").SetColVisibleWidth("第一列|50|第二列|30|第三列|60|第四列|70|第五列|20|")

 1、你的例子没有体现这个错误。

 

 2、你的Table控件，必须命名为Tbl_Main，并且这个控件必须是副本或者sqlTable或者sqlQuery