在表事件是执行:Afteredit事件代码
Dim dt1 As DataTable = DataTables("考生高考成绩信息")
Dim dt2 As DataTable = DataTables("省控制线")
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "文理分科 = '" & dr("文理分科") & "' and 录取年度 = '" & dr("录取年度") & "' and 选科系列 = '" & dr("选科系列") & "'"
Dim fdr = dt2.find(filter)
If fdr IsNot Nothing Then
dr("省控制线") = fdr("省控制线")
dr("实录分数") = fdr("实录分数")
dr("实录排名") = fdr("实录排名")
dr("实录差值") = fdr("实录差值")
End If
Next
提示错误,不升级前,可以,现在不知问题出在哪里