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

同时，在物流信息中如果进行增加删除，也会在盘点表在反映。但是实现不了，哪位高后能帮忙，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:祥泰仓库管理系统.rar