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

此主题相关图片如下：01.png
想在商品资料里加多出库的代码

 

此主题相关图片如下：02.png
自动输入功能，{入库}可以了，就差{出库}

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

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

点击浏览该文件:进销存.rar

问题是：{入库}表数据可以和商品资料同步更新

           {出库}表数据不可以和商品资料同步更新

 

目的是{出库}和{入库}一样做到自动录入和同步数据

能看明白吗？狐理爸爸

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

谢谢