通过什么联结两个表?我先假设一些情况,你自己适当修改.
(1)在表单中至少有两个控件:GRID1(显示父表)和GRID2(显示子表)
(2)在表单的初始化部分(FORM1.INIT)写代码,打开两表并显示全部记录
CLOSE ALL
USE 父表.DBF
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="父表"
SELECT 2
USE 子表.DBF
THISFORM.GRID2.COLUMNCOUNT=-1
THISFORM.GRID2.RECORDSOURCE="子表"
(3)在GRID1.AFTERROWCOLCHANGE里写上如下代码,当点击父表某记录后其子表随着改变
SELECT 2
SET FILTER TO 关键字段=父表.关键字段
GO TOP
THISFORM.REFRESH