If e.DataCol.Name = "折扣"

    Dim Filter As String = "[当前等级] = \'" & e.DataRow("等级") & "\'"

    Dim drs As List(Of DataRow) = DataTables("会员表").Select(Filter)

    For Each dr As DataRow In drs

        dr("折扣") = e.DataRow("折扣")

    Next

End If

求解释这句话的每一段代码。自己弄好久都不明白。

特别是for each这一段。