怎么在表单关闭时自动关闭所有打开的表及视图

如何在表单关闭时自动关闭所有打开的表及视图？
我在表单运行时设置了数据环境为一个本地视图A，本地视图A是基于表B的。在表单关闭的destory事件中写入了这样的代码：if used('A')
sele A
use
endif

if used('B')
sele B
use
endif

当我关闭这个表单后，就在另一个窗口中立即启动：SELECT COUNT(数量) FROM B.dbf into ARRAY gztca WHERE  类别= "常规用户"
这时就会提示：文件正在使用！
请问这是什么原因？以前没在destory中写代码也是这样的结果。请问为什么那个表B被占用了？
------解决方案--------------------
在表单的 Unload 事件写代码
Close Databases All
------解决方案--------------------
不需要在 Destroy 中写代码, 仅设置表单的 DataSession 的属性为 2 即可