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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能智能隐藏列和添加行吗？

共有4447人关注过本帖树形打印复制链接主题：能智能隐藏列和添加行吗？

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

能智能隐藏列和添加行吗？ 发帖心情

Post By：2014/5/9 13:54:00 [显示全部帖子]

感谢兄弟们！能不能添加行的时候更具选中的情况添加啊

显示列的时候，按照上面
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140509135038.jpg

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

显示的显示而显示啊，感谢感谢

yangwenghd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/9 14:42:00 [显示全部帖子]

感谢你兄弟

能不能要保存！

兄弟发给我文件还是没有改变，兄弟能不能看看有没上传错！感谢感谢

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/9 18:54:00 [显示全部帖子]

感谢，第一个就是你的写的功能

第二个是这样的：比如我在序号第一行，显示腰围和胸围，光标移到其他列就不显示(除了型号列)。每一行都不同。

第三个是添加行的意思，添加的时候在里面输入参数，输入两项参数，第一项就是把左边选中的输入表A的型号列，第二项就是把表B当时选中的行的产品编号列复制到每个添加行的复制编号。比如选中S M 点击添加，表A行就添加两行，型号列分别为S M 复制编号列都输入表B当时选中的行的产品编号，选中的是第3行，产品编号就是00H36917867836，添加的两行的复制编号都为00H36917867836

还有一个功能就是窗口表只表B选中行的产品编号与表A复制编号相等的行，

比如：表B选中第5行，第5行的产品编号是00H37708540481，窗口表就只显示表A复制编号为00H37708540481的行。

感谢感谢

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/11 8:59:00 [显示全部帖子]

bin兄弟，可不可以有记忆功能啊

比如第一行固定了要显示的列

在第二行改变了隐藏或者显示的列，

再点击第一行的时候，还是保存第一行显示的列！

感谢感谢

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/11 13:40:00 [显示全部帖子]

嗯就是这个江湖救急兄弟能不能先帮忙看看

yangwenghd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/11 14:56:00 [显示全部帖子]

再帮我看看嘛！甜兄弟，把这点事完了一定好好看帮助！

感谢感谢

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/11 21:07:00 [显示全部帖子]

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

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

yangwenghd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/5/12 22:57:00 [显示全部帖子]

如果还要加一个表是不是在代码加个 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