代码: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,其他页面上的表不调整
加好友 
发短信
Post By：2019/2/24 18:36:00 [只看该作者]
