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

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

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

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

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

      制定物料编码规则如下：

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

例如：

      1112131221101

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

请问下狐狸爸爸，

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"

这两句没理解。