主题：自动编号

按五笔码自动生成编号，品牌相同编号相同，如果删除附件中的“品牌中继号”列，要实现同样功能，主要问题：
 Dim drs As List(of DataRow) = e.DataTable.Select("品牌中继号 Like '" & s2 & "*' And [_Identify] < " & e.DataRow("_Identify"))
这段代码改为：

Dim drs As List(of DataRow) = e.DataTable.Select("编号 Like '" & s2 & "*' And [_Identify] < " & e.DataRow("_Identify"))

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

点击浏览该文件:五笔码加编号.table