主题：[求助]狐爸、大神，小弟在此谢过！

明天提拔您当论坛总版主，但是您要养成提问附加实例文件的习惯，解决起来顺手一些，否则，您的问题会被一拖再拖。

给个文件，有更简单的处理办法，一次性到位！

楼主，您是需要重新编号，还是需要在已有的编号中调整编号：同一名称多个编号时取第一个吗？还是取最小编号？

一键统一所有规格序号和编号（编号按同名称最小编号）

 

Dim mc As String = DataTables("药品信息表").GetComboListString("名称")
Dim dr As DataRow
Dim bh,gg As String
Dim Values() As String
Values = mc.split("|")
For Index As Integer = 0 To Values.Length - 1
    dr = DataTables("药品信息表").Find("名称 = '" & Values(Index) & "'","编号",0) '以找到的最小编号为准。

    bh = dr("编号")
    DataTables("药品信息表").ReplaceFor("编号",bh, "[名称] = '" & Values(Index) & "'")
    gg = DataTables("药品信息表").GetComboListString("规格","[名称] = '" & Values(Index) & "'")
    Dim Value2s() As String
    Value2s = gg.split("|")
    For i As Integer = 0 To Value2s.Length - 1
        DataTables("药品信息表").ReplaceFor("规格序号",i+1,"[名称] = '" & Values(Index) & "' and 规格 = '" & Value2s(i) & "'")
    Next
Next

 

楼主：您的名称有这样的：【0.9%氯化钠注射液】和【0.9%氯化纳注射】之类的错误问题需要您自己手工解决，类似的错误是录入时导致的。

这是楼上方法解决的文件：

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

点击浏览该文件:管理项目7.table

这样优化一下，只要您不进行插入行操作（建议该表取消设置插入标志列），系统运行一段时间后再度执行该代码，已经分配好的编号和规格序号不会被修改：

Dim mc As String = DataTables("药品信息表").GetComboListString("名称","","_Identify")
Dim dr As DataRow
Dim bh,gg As String
Dim Values() As String
Values = mc.split("|")
For Index As Integer = 0 To Values.Length - 1
    dr = DataTables("药品信息表").Find("名称 = '" & Values(Index) & "'","_Identify",0)  '从首行开始，以找到的第一个编号为准。
    bh = dr("编号")
    DataTables("药品信息表").ReplaceFor("编号",bh, "[名称] = '" & Values(Index) & "'")
    gg = DataTables("药品信息表").GetComboListString("规格","[名称] = '" & Values(Index) & "'","_Identify")
    Dim Value2s() As String
    Value2s = gg.split("|")
    For i As Integer = 0 To Value2s.Length - 1
        DataTables("药品信息表").ReplaceFor("规格序号",i+1,"[名称] = '" & Values(Index) & "' and 规格 = '" & Value2s(i) & "'")
    Next
Next

跑得比兔子还快，居然说夜不能寐！

还能比我早睡？我就不信！

 

谢谢提醒，我是该调整作息时间了！

 

晕，给老妈买月饼还到淘宝店？干嘛不到超市选购上等货，这类东西最好以实物为准，别淘宝！