主题：相同的产品不同的客户不同的单价，如何求平均价格、提前适用的单价

Dim dr As DataRow
      dr = DataTables("运费表").Find("出库单号 = '" & e.DataRow("出库单号") & "'")
If dr IsNot Nothing Then
        dr("发货单号") = e.DataRow("发货单号")
        dr("发货日期") = e.DataRow("发货日期")
      Else
        dr = DataTables("运费表").AddNew()
        dr("出库单号") = e.DataRow("出库单号")
       End If

以上代码是稍加改动写的，但出现“编译错误，变量dr在封闭块中隐藏变量“，请问问题出在哪里？谢谢！