主题：物料代码自动补充

9楼代码中,下面的提示代码加在哪里合适?加到END IF之前会有多次提示,不合适.

MessageBox.Show("有新代码,请及时补充!", "提示") '可能会有多次提示,每次新增1个

Dim count As Integer = 0

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").find("代码 = '" & dr("代码") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").AddNew
        fdr("代码") = dr("代码")
        count += 1
    End If
    fdr("型号") = dr("型号")
    fdr("规格") = dr("规格")
Next

If Count > 0 Then
    MessageBox.Show("有新代码,请及时补充!", "提示")
End If