set talk off
set safety off
sele 2
use 厂长办公室工资表
index on 职工号 TO CZBGSXHIND
SELE 3
USE 财务科工资表
INDEX ON 职工号 TO CWKXHIND
SELE 4
USE 生产科工资表
INDEX ON 职工号 TO SCKXHIND
SELE 5
USE 一车间工资表
INDEX ON 职工号 TO YCJXHIND
sele 6
USE 二车间工资表
INDEX ON 职工号 TO ECJXHIND
SELE 1
USE 职工工资总表
INDEX ON 职工号 TO ZGGZXHIND
SET relation to A->职工号=B->职工号.and.A->月份=B->月份 into B additive
SET relation to A->职工号=C->职工号.and.A->月份=C->月份 into C additive
SET relation to A->职工号=D->职工号.and.A->月份=D->月份 into D additive
SET relation to A->职工号=E->职工号.and.A->月份=E->月份 into E additive
SET relation to A->职工号=F->职工号.and.A->月份=F->月份 into F additive
DO WHILE .T.
CLEAR
? " 系 统 功 能 菜 单 "
?" ==========================="
?" 1 输入各部门职工信息"
?" 2 查询各部门职工信息"
?" 3 修改各部门职工信息"
?" 4 删除各部门职工信息"
?" 5 计算工资 "
?" 6 输出数据 "
?" 7 退出 "
INPUT "请选择（1—7）：" TO N
DO CASE
CASE N=1
DO SR
CASE N=2
DO CX
CASE N=3
DO XG
CASE N=4
DO SC
CASE N=5
DO JS
CASE N=6
DO SHUCHU
CASE N=7
CLEAR
?"感谢您使用本系统！！"
CLOSE ALL
CANCEL
ENDCASE
ENDDO


为什么几个表和总表建立不了关联那？我输入记录时也是选择1区输入的，主动指针添加记录，与它关联的被动指针也应能加进去记录啊，这是怎么回事，时间紧急，哪位高手帮我指点一下？

好象你语法弄错了吧?,而且,关联不许条件的吧(把条件加在各自的CASE或ＰＲＧ里)?

改成如下试试（FoxBASE是这样，ＶＦＰ应该兼容的吧）：

SET relation to 职工号 into B additive
SET relation to 职工号 into C additive
SET relation to 职工号 into D additive
SET relation to 职工号 into E additive
SET relation to 职工号 into F additive