主题：各位老大又来了！！！帮帮解决一个问题

今时今日，你还提这种问题？

For Each dr1 As DataRow In DataTables("补偿计算").DataRows
    Dim dr2 As DataRow  =  DataTables("标准表").Find("补偿标准代码 = '" & dr1("补偿标准代码") & "'")
    If dr2 IsNot Nothing Then
        dr1("补偿标准金额") = dr2("补偿标准金额")
    End If
Next