主题：For Each dr As DataRow In drs

Select Case e.DataCol.Name
    Case "归还状态"
        Dim Filter As String = "[证书号] = '" & e.DataRow("证书号") & "'"
        Dim drs As List(Of DataRow) = DataTables("证件表").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue

求教For Each dr As DataRow In drs这条代码出错dr封闭块中隐藏变量 该怎么改