主题：假设录入了11,22,33三个序列号，那么入库单为“未领用”状态，那么如何实现这三个序列号，分成三条不同的记录呢？也就是生成三行数据呢？

问题1：出库单中如何仅加载为“出库操作”的表数据，但是同时又不影响实时库存的计算！

问题2：由于出库会存在批量出库状况，那就是多个序列号被同时选择后，状态为领用状态，

假设选择了11,22,33三个序列号，该出库单为”已领用“状态，那么如何实现入库的时候11,22,33三个序列号的对应是否领用为“已领用”呢？

问题3：同样入库会存在同一型号产品，几个序列号批量录入，

假设录入了11,22,33三个序列号，那么入库单为“未领用”状态，那么如何实现这三个序列号，分成三条不同的记录呢？也就是生成三行数据。

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

点击浏览该文件:报价业务.foxdb

谢谢你

但是问题3运行后效果不是预想中的 求继续指导

方框打钩部分希望是全部一样的 1,2,3,4,5希望这行不显示 红色标注的1 2 3 4 5 应当显示出来

代码：

Select Case e.DataCol.Name
    Case "序列号"
        Dim Multi As String = "" & e.DataRow("序列号") & ""
        For Each s As String In Multi.Split(",")
            Tables("入库单_table1").AddNew()
        Next
End Select

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

问题2 这个代码放在变动咧事件里么？

序列号列正常了 但是其他公共数据还是空白 该怎么赋值为第一个对应的值呢？也就是说1 2 3 4 5 序列号不同 但是其他数据值是相同的

呵呵 我是断断续续弄了那久 但是差不多好几个月才弄一次 所以实际时间没有那么长

新增多个序列号 并保存 当时全部显示，但是一旦关闭窗体后 再次打开就永远只有第一条 哎 求纠正

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

保存数据事件代码为：

Dim nms As New List(Of String)
Dim drs As New List(of DataRow)
With DataTables("入库单_table1")
    nms = .GetValues("产品")
    For Each nm As String In nms '找出每个产品的第一行数据, 添加到集合drs中
        drs.Add(.Find("产品 = '" & nm & "'", "[_SortKey]"))
    Next
    For Each dr As DataRow In drs
        .DataCols("入库").RaiseDataColChanged(dr)
    Next
End With

DataTables("入库单_Table1").Save()

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

点击浏览该文件:报价业务.foxdb

查找对应序列号并赋值为已领取 操作提示错误 没能成功实现赋值效果

代码如下：

DataTables("库存表").ReplaceFor("是否领取", "已领取", "序列号 in ('" & "'" & e.DataRow("序列号").Replace(",", "','") & "') and 操作类型 = '入库操作'")

错误如图：

谢谢BIN老师 是因为我表名没有采用SQLTABLE导致的不及时显示更新  谢谢

谢谢大红袍老师 表名更改为SQLtable后成功操作效果  再次感谢老师的耐心指导

现在我试一试删除后恢复为未领取状态  届时有问题再请教各位老师  谢谢