能智能隐藏列和添加行吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图片点击可在新窗口打开查看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:图片测试.zip

今天一天麻烦你们太多了！头都快炸了，感谢你们！

甜兄弟，发的那个还是没有那个功能，是不是要设置什么。

11楼的，功能全部有了。自己看代码和尝试。

如果还要加一个表是不是在代码加个 or“产品尺寸制作_Table1” 就可以了啊

Dim s As String = GetConfigValue("cw","")
If s <> "" Then
    Tables("产品尺寸制作_Table3" Or "产品尺寸制作_Table1").SetColVisibleWidth(s)
    For Each c As WinForm.CheckBox In e.Form.Controls("Panel1").Children
        If s.Contains(c.text) Then
            c.Checked=True
        End If
    Next
End If

Dim s As String = Tables("产品尺寸制作_Table3" Or "产品尺寸制作_Table1").GetColVisibleWidth
SaveConfigValue("cw",s)

If e.Sender.Parent.name="Panel1" Then
    Tables("产品尺寸制作_Table3").Cols(e.Sender.text).Visible=e.Sender.Checked
    Tables("产品尺寸制作_Table1").Cols(e.Sender.text).Visible=e.Sender.Checked
End If