输入法继续写之：重复编码分析~~~

基本工作都完成了。。。不得不再做做重复编码分析....  因为生平最恨没效率的事，重复的事....  code....

   Dim BM As String, OldBM As String
   Dim CI As String, OldCI As String
   Dim JS As Long
   Dim n As Integer

       Form5.Show
       Form5.Label1.Caption = "正在分析编码..."
    
       Set rs = ADO.CreateRecordset("SELECT * FROM YS_PY")
     
       While rs.EOF = False
     
         BM = rs.Fields(0)
         CI = rs.Fields(1)
                  
         If BM = OldBM Then
         
            If CI = OldCI Then
               n = n + 1
               MsgBox "重复的词条：" & CI & " - " & BM
            End If
         
         End If
         
         OldBM = BM
         OldCI = CI
         
         JS = JS + 1: DoEvents
         Form5.ProgressBar1.Value = (JS / rs.RecordCount) * 100
         
         rs.MoveNext
         
       Wend
       
       Form5.Hide
       
       If n = 0 Then
          MsgBox "未发重复的词条！"
       Else
          MsgBox "共发现" & n & "条重复的词条！"
       End If

还好，五笔没有重复的编码，拼音有3条。。。即使只有3条，也必须去除。。。　因为多余的编码和花油一样令人讨厌。。。