datacolchanged事件,根据【姓名】【日期】find查找到对应的行,如
Dim fdr As DataRow = e.DataTable.Find("姓名 = '" & e.datarow("姓名") & "' and 统计日期 < #" & e.datarow("统计日期") & "#", "统计日期 desc")