输入框默认隐藏新增时再展开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 输入框默认隐藏新增时再展开

共有8670人关注过本帖树形打印复制链接主题：输入框默认隐藏新增时再展开

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

输入框默认隐藏新增时再展开 发帖心情

Post By：2013/3/5 11:26:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:输入框默认隐藏新增时再展开.zip

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

Post By：2013/3/5 12:42:00 [显示全部帖子]

按你提供的方法把代码加入到取消按钮中，我点击取消时，可以不显示编辑区了，但表不会自动恢复到默认益显示，导致原编辑区那个位置空在那里。

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

Post By：2013/3/5 12:42:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-3-5 11:46:00的发言：

1、设计窗口的时候，将编辑区这个GroupBox的可见属性设置为False，这样默认是隐藏的。

2、将增加按钮的代码改为：

Tables("JSZH").AddNew()
e.Form.Controls("编辑区").Visible = True

3、取消按钮的代码改为：

Tables("JSZH").Current.Reject()
e.Form.Controls("编辑区").Visible = False

4、保存按钮的代码改为：

Tables("JSZH").Current.Save()
e.Form.Controls("编辑区").Visible = False

按你提供的方法把代码加入到取消按钮中，我点击取消时，可以不显示编辑区了，但表不会自动恢复到默认益显示，导致原编辑区那个位置空在那里。

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

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

以下是引用muhua在2013-3-5 11:40:00的发言：

下载信息 [文件大小：304.0 KB 下载次数：5]
点击浏览该文件:输入框默认隐藏新增时再展开.foxdb

我在word文档中描述的需求，还有点问题未解决哦

1、点击新增时，弹出的编辑区，字段内容应该为空，处于新增状态才对（注：要求表中不会先自动新增多一条数据，控制当点击编辑框中的【保存】后，才会把新增的数据保存到表中）。目前点击新增时，默认将第1个记录加载在编辑区中

2、我按狐狸爸爸提供的方法把代码加入到取消按钮中，我点击取消时，可以不显示编辑区了，但表不会自动恢复到默认位置显示，导致消失的编辑区那块位置空在那里。

3、表中的空白区域的底色在哪设置？（表可以显示20行，目前有3行记录，那么17行的位置是深灰色了，怎么调整这部分的底色）？

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

Post By：2013/3/5 13:10:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-3-5 12:55:00的发言：

代码是灵活的，你要显示什么表，那个表，还是其他的表？

要在同一个位置交替显示表和编辑控件，很简单，你插入一个Table控件，绑定到你要显示的表，增加按钮代码为：

Tables("JSZH").AddNew()

e.Form.Controls("Table1").Visible = False
e.Form.Controls("编辑区").Visible = True

取消按钮代码为：

Tables("JSZH").AddNew()

e.Form.Controls("Table1").Visible = True
e.Form.Controls("编辑区").Visible = False

代码是灵活的，关键在于理解。

目前需求不仅仅是针对编辑区和表进行交替显示，而是点击新增时，自动展示编辑区，此时表的位置自动下移（这点2楼的回复已经做到了）；但是还差一点的是，点击编辑框中的取消，除了编辑框消失外（这点2楼的回复已经做到了），表的位置要能恢复到原来的显示位置，否则导致消失的编辑区那块位置空在那里。

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

Post By：2013/3/5 13:26:00 [显示全部帖子]

嗯嗯，明白了，谢谢。

jpguo

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

加好友

发短信

等级：幼狐帖子：155 积分：1556 威望：0 精华：0 注册：2011/4/8 14:38:00

Post By：2013/3/5 18:03:00 [显示全部帖子]

以下是引用muhua在2013-3-5 11:40:00的发言：

下载信息 [文件大小：304.0 KB 下载次数：5]
点击浏览该文件:输入框默认隐藏新增时再展开.foxdb

帮忙再修改2个地方：

1、双击后表中记录后，只需在当前窗口，打开编辑区，将选中的记录填充到编辑区。

2、点击新增后，弹出编辑窗口后，锁定新增、删除上面一排按钮不允许编辑。

下一主题 >> << 上一主题

主题：输入框默认隐藏新增时再展开