Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
For Each dr As Datarow In DataTables("优生统计").DataRows
Dim dr1 As DataRow = DataTables("教师安排").Find("[班级] = " & dr1("班级"))
If dr1 IsNot Nothing Then
dr("总分_班主任")= dr1("总分")
dr("语文_教师")= dr1("语文")
dr("数学_教师")= dr1("数学")
dr("英语_教师")= dr1("英语")
dr("物理_教师")= dr1("物理")
dr("化学_教师")= dr1("化学")
dr("生物_教师")= dr1("生物")
End If
next
呵呵,粗心了