If e.DataCol.name="姓名" OrElse e.DataCol.name="学科" Then If e.DataRow.IsNull("姓名")=False AndAlso e.DataRow.IsNull("学科")=False Then Dim dr As DataRow = DataTables("成绩汇总").Find("姓名='" & e.DataRow("姓名") & "'") If dr IsNot Nothing Then If dr.DataTable.DataCols.Contains(e.DataRow("学科")) Then e.DataRow("成绩")=dr(e.DataRow("学科")) Else e.DataRow("成绩")=Nothing End If End If End If End If