要一个一个写
If Tables("关联表1").Rows.Count > 0 orelse Tables("关联表2").Rows.Count > 0 OrElse Tables("关联表3").Rows.Count > 0 Then