[求助]面板 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]面板

共有3596人关注过本帖树形打印复制链接主题：[求助]面板

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/12/27 21:11:00 [只看该作者]

老师，下面是论坛上搜来的是你修改的项目，依样画葫芦搞了一个但有点问题，我是要隐藏左边的面板分区。望老师帮忙。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:显示或隐藏分区 (6).table

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/27 21:24:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:显示或隐藏分区 (6).table

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/12/28 8:06:00 [只看该作者]

老师你给我写的显示隐藏分区面板的代码在有控件（表）时把操作按钮遮挡了找不到。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/28 9:30:00 [只看该作者]

设计窗口上方有下拉可以选择控件的。

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/12/28 12:29:00 [只看该作者]

老师，有来麻烦你了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.rar

此主题相关图片如下：图像 5.png

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/28 14:31:00 [只看该作者]

的代码

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("输入数据_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    Dim str As String = DataTables("卖出明细").GetComboListString("买入交易码", "最后仓储数 = 0").replace("|", "','")
    tbl.Filter = "买入明细编号 not in ('" & str & "') and (股piao代码 Like " & txt & " Or 股piao名称 Like " & txt & " Or 买入明细编号 Like " & txt & ")"
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框