主题：代码问题

我设置了两个表，销售信息表和销售汇总表

其中我想销售信息表中每次新增加一个合同时，销售汇总表都自动增加一行，然后客商名称和项目名彻骨，合同单价三列自动复制内容。我在销售信息表的

DataColChanged中设置如下代码：

Select Case e.DataCol.name
    Case "项目名称"
        Dim dr As DataRow = DataTables("销售_汇总").Find("项目名称 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("销售_汇总").AddNew()
            dr("客商名称") = e.DataRow("客商名称")
            dr("项目名称") = e.DataRow("项目名称")
            dr("合同单价") = e.DataRow("合同单价")
        Else
            dr("项目名称") = e.DataRow("项目名称")
        End If

end select

新增行记录后，其他都正常，只是合同单价为什么显示为0 呢