主题：麻烦看看这段代码的问题

表 a  是父表  表 b 是字表 

表a 的总公斤 是表b 实际公斤数 的sum

如果表b 的实际公斤数发生变化的话  表 a 的 运费 列= 表a 的 【总公斤】 * 【单价】

以上是我想要的结果，但是 下面这段代码好像不太给力。 总是提示错误信息， 所以请各位大侠指点一下奥！~~  非常感谢~~~！！！！

If e.DataCol.Name = "实际公斤数" Then '发生变化的是客户名吗?
    Dim dd As DataRow
    dd= DataTables("运单入账").Find("发货单号 = " & "'" & e.DataRow("发货单号") & "'" )
      If dd Is Nothing Then  '如果表B中不存在相同的记录
  
Else
  dd("运费")=dd("总斤数") * dd("单价")
End If
    End If

数值运算 最好都加上空值判断，否则容易出错。

If e.DataCol.Name = "实际公斤数" Then '发生变化的是客户名吗?
    Dim dd As DataRow
    dd= DataTables("运单入账").Find("发货单号 = " & "'" & e.DataRow("发货单号") & "'" ) 
    If dd Isnot  Nothing Then  '如果表B中不存在相同的记录

        if dd.isnull("总斤数")  = true OrElse dd.isnull("单价") = true

           dd("运费")= 0

        else

           dd("运费")= dd("总斤数")  * dd("单价")
        End If
    End If

End If