老鸟的提问方式误导了大家: Dim dt As DataTable = DataTables("成绩库") Dim dr1 As DataRow = e.DataRow Dim str As String = "[学号] = '" & dr1("学号") & "'" If e.DataCol.Name = "学号" Then Dim dr2 As DataRow = dt.Find(str) If dr2 IsNot Nothing Then dr1("姓名") = dr2("姓名") End If dr2 = dt.Find(str & " And [课程]= '语文'") If dr2 IsNot Nothing Then dr1("语文") = dr2("分数") End If dr2 = dt.Find(str & " And [课程]= '数学'") If dr2 IsNot Nothing Then dr1("数学") = dr2("分数") End If End If