主题：代码合并

Dim idx As Integer = Tables("临时表").FindRow("加工工序 is null")
If idx >=0   Then
    msgbox("工序重号,不能保存,更改后再保存")
    Tables("工序跟踪表").Position = idx

    Return
End If