请帮帮我

Question

在（新增用户界面）中的添加部门时，可以添加，并且能保存http://s13.photo.store.qq.com/http_imgload.cgi?/rurl4_b=3f5e7680b76a0a893dfd6d0ba7d4f899dee4be7f01f312070931b4a807970e73190d9c1736ca3c92753cab2b7e998c81348269c3c1722bf6d9347709d8b627009cab16831d0df4bc98be662f197b8d67b43022ee
 在双击http://s4.photo.store.qq.com/http_imgload.cgi?/rurl4_b=3f5e7680b76a0a893dfd6d0ba7d4f8991e29cc605cca79a13262e00cef18987d62920982e3d2059271f0a98a468e0f4584ad610f5f8edee5301652f7805593cd28a9bbf2dec29f6fab58419971ae20ff139c256a
 
（用户信息界面）显示：http://s5.photo.store.qq.com/http_imgload.cgi?/rurl4_b=3f5e7680b76a0a893dfd6d0ba7d4f899a1425aeb85dc8fec4013def4a6bac0c88b2f4b310d354cbbeb2886da7ae849e10568dccce8365374bc96ad6db7312d8862127ccab8db55288e95c3a94bff32f9b1ed6520
 但是当你对用户信息中的负责部门做修改时，新增用户界面中的负责部门选项中的值同时也被改了。如何在修改部门时，（新增用户界面）中的添加部门下拉中的值不会改变？

Answer 1

这是添加按钮的代码：Private Sub Command1_Click()
If Trim(Me.txtbm.Text) = "" Then
   MsgBox ("bu neng  wei kong ")
   Exit Sub
End If For i = 0 To Me.Combo2.ListCount - 1
    If Me.txtbm.Text = Me.Combo2.List(i) Then
        MsgBox ("NO")
        Exit Sub
    End If
Next iMe.Combo2.AddItem (Me.txtbm.Text)
End Sub

Answer 2

这是添加按钮的代码： Private Sub Command1_Click() 
If Trim(Me.txtbm.Text) = "" Then 
  MsgBox ("bu neng  wei kong ") 
  Exit Sub 
End If For i = 0 To Me.Combo2.ListCount - 1 
    If Me.txtbm.Text = Me.Combo2.List(i) Then 
        MsgBox ("NO") 
        Exit Sub 
    End If 
Next i Me.Combo2.AddItem (Me.txtbm.Text) 
End Sub