以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口副本的列数量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109413)
--  作者：有点蓝
--  发布时间：2017/11/11 12:03:00
--  
1、除非使用remove把列移除了，不然列都是一样的，只是看不到而已

2、

Dim tb As WinForm.Table = e.Form.Controls("Table1")
Dim cls As String
Dim i As Integer = 0
For Each dc As Col In tb.Table.Cols
    If dc.Visible = True Then
        i = i+1
        cls = cls & dc.Name & "|[W]|"
    End If
Next
Dim wid As Integer = (tb.Table.grid.width - 50)/i
tb.Table.SetColVisibleWidth(cls.Trim("|").Replace("[W]",wid))
--  作者：有点蓝
--  发布时间：2017/11/11 16:10:00
--  
For Each dc As Col In tb.Table.Cols
    If dc.Visible = True Then
        If dc.name = "第二列"
            cls = cls & dc.Name & "|" & dc.Width & "|"
        Else
            i = i+1
            cls = cls & dc.Name & "|[W]|"
        End If
    End If
Next
--  作者：有点甜
--  发布时间：2017/11/12 21:08:00
--  

回复5楼，没有对应的事件处理的。

 

你只能在timertick事件，一直检测列是否不同，如果不同，就执行代码。
--  作者：有点蓝
--  发布时间：2017/11/14 11:44:00
--  
代码扔到timertick事件就可以了，不需要改动