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

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

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

多谢程大版版，多谢甜甜，我得研究琢磨一阵子才能看明白了。

程大版版，天地良心啊，我这2点多了还没睡，就等您下令啊。

刚刚研究检索去了，没看论坛，抱歉抱歉。再次感谢伟大的版版。

你该吃药了

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

今天再战。程版，昨天我也是4点多睡- -。

只是逛淘宝给老妈买月饼去了- -

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