记录窗口的显示与隐藏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Table上有很多列,设计了多个记录窗口,根据某列的内容不同而显示对应的记录窗口.代码如下:

在表事件中CurrentChanged

Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

rgd2.Table = Tables("报价系统_Table4") '指定绑定表

If Tables("报价系统_Table4").current("工步") = "车床"Then

e.Form.Controls("RecordGrid2").Visible = False 隐藏所有记录窗口,代码怎么写?

e.Form.Controls("RecordGrid3").Visible = False

e.Form.Controls("RecordGrid1").Visible = True'打开RecordGrid1

ElseIf Tables("报价系统_Table4").current("工步") = "磨床"Then

e.Form.Controls("RecordGrid1").Visible = False

e.Form.Controls("RecordGrid2").Visible = False

e.Form.Controls("RecordGrid3").Visible = True'打开RecordGrid1

End If

rgd2.Build() '重新生成记录窗口

第一个问题:选择不同数据行后,先要把所有记录窗口隐藏,隐藏所有记录窗口,代码怎么写?

第二个问题:当TABLE中没有数据时,提示运行错误:未将对象引用设置到对象的实例。怎么解决?

1、就是1楼的代码，逐个设置控件的Visible = False

Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

rgd2.Table = Tables("生产调度_Table4") '指定绑定表

If Tables("生产调度_Table4").Current IsNot Nothing And Tables("生产调度_Table4").current("工步") = "车床"Then

e.Form.Controls("RecordGrid2").Visible = False

e.Form.Controls("RecordGrid3").Visible = False

e.Form.Controls("RecordGrid1").Visible = True'打开RecordGrid1

Else If Tables("生产调度_Table4").Current IsNot Nothing And Tables("生产调度_Table4").current("工步") = "磨床"Then

e.Form.Controls("RecordGrid1").Visible = False

e.Form.Controls("RecordGrid2").Visible = False

e.Form.Controls("RecordGrid3").Visible = True'打开RecordGrid1

End If

rgd2.Build() '重新生成记录窗口

加上红色代码,还是提示运行错误:未将对象引用设置到对象的实例?当在Tables("生产调度_Table4")上新增一行后,可正常运行.

方法1、先判断Current IsNot Nothing，不要和其它条件放到一起

主题：记录窗口的显示与隐藏