求助：

 求助，如何实现物品调取，从原来库点调取后，原来库存减少，同时在新库点增加对应数量！

此主题相关图片如下：123.jpg

点物品调度后弹出物品调库管理

选择原库地点  对应的是设备库存的入库地点

原库数量自动等于设备库存表中的当前库存数

当选择了新的调入地点后，当前原库点对应出库相应数量的商品，同时新增一个入库数据到调入底单。

不知道这样的思路合理不合理，求解

求指导 求更加合理化的设计思路和代码写法

用代码，做一个出库和一个入库操作。

我采用了一个表行改变时间增加出库 然后再窗体关闭前增加入库 基本可以实现我的要求

但是现在又一个问题出现：

设备库存表中有一个当前库存 入库地点  出库地点  入库数量  出库数量 五个字段

门店调取表中有一个原库地点 调入地点 原库数量  调取数量 当前库存

原库数量我想实现在原库地点输入内容后 且设备名称不为空的情况下 实现筛选结果为当前所选择的原库地点和设备名称对应的库存为多少

当调入地点和调取数量有内容后  当前库存则等于调入地点对应设备名称的当前库存

下面是实现代码  但是运行时候报错 

Select Case e.DataCol.Name
    Case "设备名称"
If e.DataRow("原库地点")<>"" Then
Dim dr As DataRow
dr = DataTables("设备库存").Find("[出库地点] = \'" & e.datarow("原库地点") & "\'","[设备名称] = \'" & e.datarow（“设备名称”） & "\'")
If dr IsNot Nothing
e.DataRow("原库数量")=dr("当前库存")
end if
end if
end selcet

出现下列错误

.NET Framework 版本：2.0.50727.5483
Foxtable 版本：2014.9.16.1
错误所在事件：表，门店调取，DataColChanged
详细错误信息：
调用的目标发生了异常。
[设备名称] = 苹果5S国行白色16G 不是有效的排序字符串项。

在DataTable查找符合条件的行，如果找到的话，返回找到的行，否则返回Nothing。
如果有多个符合条件的行，默认返回第一个，也可以指定返回第几个符合条件的行。

语法：

Find(Filter,Sort,Index)

Filter: 条件表达式，请参考表达式的运算符和函数 和 条件表达式。
Sort: 可选参数，指定排序方式。
Index: 可选参数，指定返回第几个符合条件的行，0表示第一行。

谢谢有点甜老师  现在设备库存表又出问题了

此主题相关图片如下：234.jpg

当前库存不能根据入库地点和设备名称来对应进行计算了   求纠正代码

Select Case e.DataCol.Name
    Case "设备名称","入库数量","出库数量"
        If e.DataCol.Name = "设备名称" Then
            If e.NewValue Is Nothing Then
                e.DataRow("设备品牌") = Nothing
                e.DataRow("设备版本") = Nothing
                e.DataRow("设备型号") = Nothing
                e.DataRow("设备颜色") = Nothing
                e.DataRow("设备内存") = Nothing
            Else
                Dim dr1 As DataRow
                dr1 = DataTables("设备信息").Find("[设备名称] = \'" & e.NewValue & "\'")
                If dr1 IsNot Nothing
                    e.DataRow("设备品牌") = dr1("设备品牌")
                    e.DataRow("设备版本") = dr1("设备版本")
                    e.DataRow("设备型号") = dr1("设备型号")
                    e.DataRow("设备颜色") = dr1("设备颜色")
                    e.DataRow("设备内存") = dr1("设备内存")
                   
                End If
            End If
        End If
       

        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [设备名称] = \'" & mr("设备名称") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("当前库存") = mr("入库数量") - mr("出库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [设备名称] = \'" & dr("设备名称") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("当前库存") = drs(i-1)("当前库存") + drs(i)("入库数量") - drs(i)("出库数量")
        Next
        If e.DataCol.Name = "设备名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [设备名称] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[设备名称] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("当前库存") = dr("入库数量") - dr("出库数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [设备名称] = \'" & dr("设备名称") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("当前库存") = drs(i-1)("当前库存") + drs(i)("入库数量") - drs(i)("出库数量")
                Next
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "设备名称","入库数量","出库数量","入库地点"
        If e.DataCol.Name = "设备名称" Then
            If e.NewValue Is Nothing Then
                e.DataRow("设备品牌") = Nothing
                e.DataRow("设备版本") = Nothing
                e.DataRow("设备型号") = Nothing
                e.DataRow("设备颜色") = Nothing
                e.DataRow("设备内存") = Nothing
            Else
                Dim dr1 As DataRow
                dr1 = DataTables("设备信息").Find("[设备名称] = \'" & e.NewValue & "\'")
                If dr1 IsNot Nothing
                    e.DataRow("设备品牌") = dr1("设备品牌")
                    e.DataRow("设备版本") = dr1("设备版本")
                    e.DataRow("设备型号") = dr1("设备型号")
                    e.DataRow("设备颜色") = dr1("设备颜色")
                    e.DataRow("设备内存") = dr1("设备内存")
                   
                End If
            End If
        End If
       

        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [设备名称] = \'" & mr("设备名称") & "\' and 入库地点 = \'" & e.DataRow("入库地点") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("当前库存") = mr("入库数量") - mr("出库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [设备名称] = \'" & dr("设备名称") & "\' and 入库地点 = \'" & e.DataRow("入库地点") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("当前库存") = drs(i-1)("当前库存") + drs(i)("入库数量") - drs(i)("出库数量")
        Next
        If e.DataCol.Name = "设备名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [设备名称] = \'" & e.OldValue & "\' and 入库地点 = \'" & e.DataRow("入库地点") & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[设备名称] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("当前库存") = dr("入库数量") - dr("出库数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [设备名称] = \'" & dr("设备名称") & "\' and 入库地点 = \'" & e.DataRow("入库地点") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("当前库存") = drs(i-1)("当前库存") + drs(i)("入库数量") - drs(i)("出库数量")
                Next
            End If
        End If
        If e.DataCol.Name = "入库地点" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [设备名称] = \'" & e.DataRow("设备名称") & "\' and 入库地点 = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[入库地点] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("当前库存") = dr("入库数量") - dr("出库数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [设备名称] = \'" & dr("设备名称") & "\' and 入库地点 = \'" & e.DataRow("入库地点") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("当前库存") = drs(i-1)("当前库存") + drs(i)("入库数量") - drs(i)("出库数量")
                Next
            End If
        End If
End Select