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

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

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

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

要在同一个位置交替显示表和编辑控件，很简单，你插入一个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

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

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

下载信息  [文件大小：304.0 KB  下载次数：5]

点击浏览该文件:输入框默认隐藏新增时再展开.foxdb

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

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

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

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

1、增加一个空行有什么关系？ 单击保存才会保存到数据库，单击取消，就会自动删除这个新增的行。

2、看6楼回复

3、参考：

http://www.foxtable.com/help/topics/0016.htm

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

我建议您先系统学习帮助，其实这是很简单的问题，就是：

1、如何隐藏和显示控件？

2、如何调整控件的位置？

方法：

增加按钮的代码：

Tables("JSZH").AddNew()
e.Form.Controls("编辑区").Visible = True
e.Form.Controls("Table1").Top = 360 '表格往下移，腾出位置给编辑框

取消按钮的代码：

Tables("JSZH").Current.Reject()
e.Form.Controls("编辑区").Visible = False
e.Form.Controls("Table1").Top = 85 ‘表格回到原来位置