1、设置子表初始不加载数据
2、在主表的CurrentChanged事件加上代码:
if Tables("父表").Current isnot nothing then
DataTables("子表").LoadFilter = "子表关联列 = '" & Tables("父表").Current("父表关联列") & "'"
else
DataTables("子表").LoadFilter = "[_Identify] Is null"
end ifDataTables("子表").Load()