优化一点点,其它科目自己补上,如果还是慢,可能要从表结构设计上考虑了
If e.DataCol.Name = "考试科目_准考证号" Then
If e.NewValue Is Nothing Then
e.DataRow("语数英物历_考室地点") = Nothing
e.DataRow("化学_考室地点") = Nothing
Else
Dim dr As DataRow
dr = DataTables("生成考室考号").Find("[准考证号] = '" & e.NewValue & "' And [类别] Like '物*'")
If dr IsNot Nothing Then
e.DataRow("语数英物历_考室地点") = dr("考室地点")
End If
dr = DataTables("生成考室考号").Find("[准考证号] = '" & e.NewValue & "' And [类别] Like '化*'")
If dr IsNot Nothing Then
e.DataRow("化学_考室地点") = dr("考室地点")
End If
End If
End If