- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 請問afterload 出現error 如何解決?? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34384)
-- 发布时间：2013/6/6 17:06:00
-- 請問afterload 出現error 如何解決??
請問afterload 出現error 如何解決?? 謝謝!!
此主题相关图片如下：err01.jpg
-- 发布时间：2013/6/6 17:07:00
--
你转换类型错了吧.上例子或者把代码发出来看看吧.
-- 发布时间：2013/6/6 17:09:00
--
一个是ComboBox,一个是CheckedComboBox,怎能转换?
-- 发布时间：2013/6/6 17:10:00
--
一个是ComboBox,一个是CheckedComboBox,怎能转换?
-- 发布时间：2013/6/6 17:27:00
--
謝謝回答!!, 我是從討論區不錯的案例中,想試試看於開發版中測試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
-- 发布时间：2013/6/6 17:43:00
--
解決了!! 是用錯控件.
-- 发布时间：2013/6/6 17:45:00
--
用这个，自动输入，就不会犯错：
http://www.foxtable.com/help/topics/1525.htm