可以在DoubleClick事件中加入
Tables("销售明细").Filter = "单位名称 = '" & e.Row("单位名称") & "'"MainTable = Tables("销售明细")