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

1、通过点击计算窗口中的计算按钮，实现“补偿计算表”的“补偿标准金额”列根据“补偿标准代码”列内的值到“标准表”取相应的值！！！

谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:取数.table

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

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