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

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

 

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

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

2、看6楼回复

3、参考：

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

 

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

 

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 ‘表格回到原来位置