以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐爸爸请进，求一代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11981)
--  作者：xxlzfd
--  发布时间：2011/8/18 15:29:00
--  狐爸爸请进，求一代码


图片点击可在新窗口打开查看此主题相关图片如下：01.png
图片点击可在新窗口打开查看想在商品资料里加多出库的代码


 


图片点击可在新窗口打开查看此主题相关图片如下：02.png
图片点击可在新窗口打开查看自动输入功能，{入库}可以了，就差{出库}
--  作者：狐狸爸爸
--  发布时间：2011/8/18 15:41:00
--  
没有看懂你的问题，而且也没有文件，不知道如何回复
--  作者：xxlzfd
--  发布时间：2011/8/18 15:46:00
--  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.rar

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

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

 

目的是{出库}和{入库}一样做到自动录入和同步数据
--  作者：xxlzfd
--  发布时间：2011/8/18 16:07:00
--  
能看明白吗？狐理爸爸
--  作者：狐狸爸爸
--  发布时间：2011/8/18 16:35:00
--  
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
--  作者：xxlzfd
--  发布时间：2011/8/18 16:40:00
--  
谢谢