If cmc.Value IsNot Nothing or e.Form.Controls("CheckBox3").Checked Then
Tables("分组统计").Rows(0)("乡名") =Nothing
Tables("分组统计").Rows(0)("村名") ="合计"
End if