主题：根据帮助里面，做一个查询然后标记运行不了

Dim lst1 As New List(of DataRow)
Dim lst2 AS New List(of DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = " & dr("第一列")) Is Nothing Then
        lst1.Add(dr)
    Else
        lst2.Add(dr)
    End If
Next
For Each dr As DataRow In lst1
    dr("第三列") = True
Next
For Each dr As DataRow In lst2
    dr("第三列") = False
Next

我准备一个表里做一个查询，第一列是序号，查询第三列的数据如果在第二列里有就在第四列里把第二例这一行的序号填进去。

我在form框里做了一个按钮执行这一段帮助里的软件，执行出错。是哪里出了问题吗？