改成
Dim fdr7 As DataRow = e.DataTable.find("年度 = '" & e.DataRow("年度")-1 & "' And 身份证号 = '" & e.DataRow("身份证号") & "'", "月均文明单位奖")