主题：狐爸爸请进，求一代码

没有看懂你的问题，而且也没有文件，不知道如何回复

Select Case e.DataCol.Name
    Case "产品名称","产品型号","计量单位","成本价","销售价"
        Dim Filter As String = "[序号] = '" & e.DataRow("序号") & "'"
        Dim drs As List(Of DataRow) = DataTables("入库").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        Next
        drs = DataTables("出库").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        Next
End Select