主题：怎么写代码自动生成物料编码

设计有一个物料编码明细表，包括以下内容

此主题相关图片如下：~x%tt~@9yt~429bn%dwth.jpg

      设计一个自动物料编码输入窗口，内容如下。

此主题相关图片如下：c8m~_~7gn1b50lkhgxvrahr.jpg

      制定物料编码规则如下：

            13位编码第一位为仓库编号，第二位为大类编号，第三，四位为中类编号，第五，六位为小类编号，第七，八位为规格编号，第九位为颜色编号，第十，十一位为零件所属产品编号，第十二，十三位为流水号。

例如：

      1112131221101

     为存在总仓中原材料大类钢板中的窄条钢板规格为60*0.9的白色学步车关节，母产品为学步车。流水号为01.

     那么我怎么写代码才能做到以下几点：

          1，在输入窗口中输入各项后，点“物料编码”按钮即可按规则生成物料编码。         

          2，流水码在前面各项相同时自动增加，并且不重复。

          3，直接输入物料编码后点“物料编码”按钮即可自动输入物料的各项属性。

          4，手工输入物料编码时如以有该编码则提示检查，并显示除流水码外前11位相同的所有物料。如退出则不添加该物料，如确定则流水码自动增加后添加该物料。

         5.输入窗口中输入的内容直接输入到物料清单表中，如物料明细表中没有该物料的任何一种属性，则在物料编号明细表中自动增加该属性，并对该属性编号。

         6，我该怎样设计物料清单表 ，物料编码明细表和输入窗口。

    刚学狐表，还望各位狐友不赐教。各位狐友有什么更好的方法来实现自动物料编号的望多多指教。

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

点击浏览该文件:自动物料编码.rar

输入窗口中少弄了个物料名称，还不能输入到物料清单中，物料清单表中的项目和物料明细表中的项目也不配套。只是想达这个效果。

你这个会晕倒一大片的····   数据又不全，空值的单元格那么多····

我是想做个空表，然后在输入窗口输的时候，自动把这两个表填起来的，无奈水平不够。只能手工填了一点。

表做好了，数也填好了，多谢老大提醒

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

点击浏览该文件:自动物料编码填好数.rar

提问最好一个一个来，解决一个，学习一个，捉摸下一个，下一个自己解决不了，就接着提问，不能一股脑地交给别人。

自动生成编号我帮你做好了，根据编号反查的你自己尝试一下，搞不定再说。

 

 

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

点击浏览该文件:自动物料编码.rar

 

注意：

 

1、物料编号列我改为字符型了

2、各个输入框的名称改为所绑定字段的名称了，这样做是为了便于编码。

谢谢，看了帮助也有十来天了，没有编程基础，英语也看不懂。想做一个系统公司用的，只能叫大家帮忙了。这段编码我要研究好几天了。上班没多少时间看这个啊

这段代码对于一般用户来说，是有些难度，你慢慢捉摸，不懂就问。

请问下狐狸爸爸，

Dim dr As DataRow = DataTables("物料编号明细").Find(nm & " = '" & e.Form.Controls(nm).Value & "'")
    If dr IsNot Nothing Then
        bh = bh & dr(nm & "编号")
    Else
        If nm = "仓库" OrElse nm = "大类" OrElse nm = "颜色" Then
            bh = bh & "1"
            dr(nm & "编号") = "1"
        Else
            bh = bh & "01"
            dr(nm & "编号") = "01"

这段代码怎么理解的？帮助上没查出来。

主要是

bh = bh & "1"
            dr(nm & "编号") = "1"

这两句没理解。

 

 

附件的版本太高了，打不开，能否转成低版本