我有两个表单
表单1使用表1，表2，表3，表4
表单2使用表2
由于两个表单之中都有删除的功能所以有一些代码
表单1：close all
use 表1.dbf
use 表2.dbf
use 表3.dbf
use 表4.dbf
表单2：close all
use 表2
通过表单1中的命令调用表单2时会出现“不能反问选定标”的提示
还有表单1中的表格（以表1，表2，表3，表4位数据源）会变成空白
我想实现的功能是通过是表单1中的命令调用表单2
表单1表单2都具有删除本身数据源表中内容的功能，而且在引用表单2时表单1总的表格不变成空白
请各位大虾不吝赐教

[此贴子已经被作者于2006-12-18 22:44:08编辑过]

显然用两个表单完成两个功能，若两个表单之间通过数据相互影响，这不是良好的结果。因为模块分解的原则是“紧内联松耦合”，你的两个表单不能做到松耦合，故一般不这样设计。建议将两个表单合并成一个表单，若功能太多，建议采用页框，分成几个页面完成。

关于表格成为空白，估计是pack命令引起的。解决的方法是：
(1)初始化的时候设置：
SET DELETED ON
结束的时候统一删除：
SET DELETED OFF
SELECT 表
PACK
THISFORM.RELEASE。

或者(2)当场删除
THISFORM.GRID1.RECORDSOURCE=""
DELETE
PACK
THISFORM.GRID1.RECORDSOURCE="表名"

表1：职工号，姓名，性别，出生年月，入厂时间，车间号
表2：职工号，基本工资，奖金，车补
表3：车间号，车间名
表单1的表中有：姓名，车间名，基本工资，奖金，车补（功能是计算职工的工资，工资的增减）
表单2的表中有：职工号，姓名，性别，出生年月，入厂时间（功能是增减职工数）
另外还有一些如表单2的功能较单一的表单如对车间的增减
请问各位大虾这样如何设计

[此贴子已经被作者于2006-12-19 18:32:31编辑过]

(1)车间管理子系统，表单3，使用表3
(2)职工管理子系统，表单2，使用表1、表3
(3)工资管理子系统，表单1，使用表2、表1