主题：另一表数据导入

If e.DataCol.Name = "零件图号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("年2015_A点_供应商简称") = Nothing
        e.DataRow("年2015_A点_含税单价") = Nothing
        e.DataRow("年2015_B点_供应商简称") = Nothing
        e.DataRow("年2015_B点_含税单价") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("价格表2015").Find("[零件图号] = '" &   e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("年2015_A点_供应商简称") = dr("A点_供应商 简称")
            e.DataRow("年2015_A点_含税单价") = dr("A点_含税单价_ 更新后")
            e.DataRow("年2015_B点_供应商简称") = dr("B点_供应商 简称")
            e.DataRow("年2015_B点_含税单价") = dr("B点_含税单价_ 更新后")
        End If
    End If
End If

我要想实现这些功能，怎么设置上述程序，放表属性datacolchanged没有数据过来。

*If e.DataRow("车型") <> "售后"  Then
    Select Case e.DataCol.name
        Case "零件图号"
            If e.newvalue > "" Then
                Dim dr As DataRow = DataTables("价格汇总表").Find("零件图号 = '" & e.newValue & "'")
                If dr Is Nothing Then
                    dr = DataTables("价格汇总表").AddNew()
                    dr("零件图号") = e.DataRow("零件图号")
                    dr("零件名称") = e.DataRow("零件名称")
                    dr("车型") = e.DataRow("车型")
                End If
            End If
        Case "零件名称","车型"
            Dim dr As DataRow = DataTables("价格汇总表").Find("零件图号 = '" & e.DataRow("零件图号") & "'")
            If dr IsNot Nothing Then
                dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            End If
    End Select
End If  零部件的名称提供这个来的。