| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 动态创建的表,成批调整各列的宽度的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131369) |
| -- 作者：nxhylczh -- 发布时间：2019/2/24 18:36:00 -- 动态创建的表,成批调整各列的宽度的问题 代码: Dim Tab As WinForm.TabControl = args(0) \'控件 tab.Dock=System.Windows.Forms.DockStyle.Fill \'Dim Table1 As Table = e.Form.Controls("Table1").Table For Each c As WinForm.Control In tab.Form.Controls If TypeOf c Is WinForm.Table Then \'判断控件是否是是表格 Dim t As WinForm.Table = c \'使用特定类型的变量引用控件 Dim CurTable As Table =t.Table Dim TableColWidth As Integer For Each dc As Col In CurTable.Cols If dc.Name<>"摘要" Then TableColWidth += dc.Width End If Next CurTable .Cols("摘要").width =tab.Width -TableColWidth-55 CurTable.Refresh End If Next 执行后的 只调整TabControl的 第一个Table,其他页面上的表不调整 |
| -- 作者：有点甜 -- 发布时间：2019/2/24 20:36:00 --
我测试没问题，请上传具体实例测试。
|
| -- 作者：nxhylczh -- 发布时间：2019/2/24 20:45:00 -- 你测试的估计一个页签 当有多个的时候 除了第一个,其他的没有调整 |
| -- 作者：有点甜 -- 发布时间：2019/2/24 21:39:00 -- 以下是引用nxhylczh在2019/2/24 20:45:00的发言：
你测试的估计一个页签 当有多个的时候 除了第一个,其他的没有调整
具体实例发上来测试 |