弄了好久，才发现了问题所在。 因需要双击列标题隐藏列功能，所以借用了下面双击列名隐藏相关列的代码（这个看不懂，但能实现功能），问题是这段代码后，却无法引用表控件了。万望指教如何才能后续再引用表

If e.Form.Controls.Contains("Table1") Then
 MessageBox.show("找到Table")
End If

Dim dt As Table = e.Form.Controls("Table1").Table

\'双击列名隐藏相关列
\'提示:为第三方控件指定事件过程的语句是AddHandler,此语句的语法为:
\'AddHandler 控件.事件, AddressOf 过程
\'***********************************************************************************************
dt.Grid.Name = dt.Name
AddHandler dt.grid.MouseEnterCell, AddressOf MouseEnterCellHandler
AddHandler dt.grid.MouseLeaveCell, AddressOf MouseLeaveCellHandler
AddHandler dt.grid.DoubleClick, AddressOf DoubleClickHandler

If e.Form.Controls.Contains("Table1") Then
 MessageBox.show("找到Table")
Else
 MessageBox.show("没有Table")
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目测试.zip