主题：怎样把材料信息添加到两个表中

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("数量")

            dr("直接成本_单价") = e.DataRow("单价")

        Else

            dr("直接成本_名称") = e.DataRow("名称")

        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