说明：一个成绩汇总表，一个成绩查询表，表结构不要变化，姓名和学科是匹配字段，需将匹配成绩填充至成绩查询表中。
成绩查询表从成绩汇总表中查找姓名和学科，然后填充成绩查询表中的数据。
问题：匹配学科时发生问题，如图中有底色部分。
求助大神帮帮忙！在线等！
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
Dim d As Integer = val(e.DataRow("学科"))
e.DataRow("成绩")=dr(Tables("成绩汇总").cols(d).name)
End If
End If
End If
[此贴子已经被作者于2018/1/25 17:09:33编辑过]
加好友 
发短信
Post By：2018/1/25 16:52:00 [只看该作者]
