主题：一个具体要解决的问题！请专家详细提导

 你到底有没有学过？所有的东西都要别人帮你写好

For Each ary() As String In DataTables("考试数据表").GetValues("学号|日期|时间")
    Dim drs As List(Of DataRow) = DataTables("考试数据表").Select("学号 = '" & ary(0) & "' and 日期 = '" & ary(1) & "' and 时间 = '" & ary(2) & "'", "试卷号")
    drs(0)("是否留考") = "否"
    For i As Integer = 1 To drs.Count - 1
        drs(i)("是否留考") = "否"
    Next
Next