Select Case e.DataCol.Name Case "第一列","第二列","第三列" If DataTables("表1").Find("第一列 = '" & e.DataRow("第一列") & "' and 第二列 = '" & e.DataRow("第二列") & "' and 第三列 = '" & e.DataRow("第三列") & "'") Is Nothing Then e.DataRow("核实") = False Else e.DataRow("核实") = True End If End Select