怎样把材料信息添加到两个表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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