放在表2表属性DataColChanged中
If e.DataCol.Name = "第二列" Then '如果第二列输入内容 Tables("表2").Current("第二列") = Tables("表1").Compute("Max(第二列)", "第一列 = '" & Tables("表2").Current("第一列") & "' ") '执行计算代码