二定义问题

Question

麻烦哪位帮我看一下，错在哪里？本人初学VB，非常感谢@@@
' 客户类型管理部分 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
'添加客户类型 
Private Sub mnuAddClientType_Click() 
  Call AddClientType 
End Sub ' 客户信息管理部分 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
'添加客户 
Private Sub mnuAddClient_Click() 
  Call AddClient 
End Sub 
' 客户类型管理操作函数 
 
'添加客户类型 
Private Sub AddClientType() 
  Dim strName As String 
  '输入客户类型名称 
  strName = Trim(InputBox("请输入客户类型名称:")) 
  If strName = "" Then Exit Sub 
 
  Dim objType As New CType 
  Dim Result As gxcAddNew 
  '更新数据库 
  Result = objType.AddNew(strName, GetID(tvTreeView.SelectedItem.Key)) 
  If Result = AddNewOK Then 
    '将客户类型加入树型图 
    AddTypeToTvw objType, tvTreeView 
  ElseIf Result = DuplicateName_AddNew Then 
    MsgBox "有重名的客户类型存在，重新命名！", vbOKOnly + vbExclamation 
  ElseIf Result = SuperNotExist Then 
    MsgBox "上级客户类型不存在，请先选择上级客户类型", vbOKOnly + vbExclamation 
  Else 
    MsgBox "失败！", vbOKOnly + vbExclamation 
  End If 
 
End Sub 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
' 客户管理操作函数 
 
'添加客户 
Private Sub AddClient() 
  Dim objClient As cClient 
  '显示添加客户对话框并获取数据 
  If frmClient.RetriveClient(objClient, vtadd, GetID(tvTreeView.SelectedItem.Key)) _ 
                            = False Then Exit Sub 
  '更新数据库 
  If objClient.AddNew = True Then 
    AddClientToLvw objClient, lvListView, False 
  Else 
    MsgBox "错误" 
  End If 
End Sub 
 
=======================================================================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub mnuAddClientType_Click() 
  Call AddClientType 
End Sub '添加客户 
Private Sub mnuAddClient_Click() 
  Call AddClient 
End Sub
' 客户管理操作函数 
'添加客户 
Private Sub AddClient() 
......
End Sub'添加客户类型 
Private Sub AddClientType() 
....
End Sub
这样写有问题吗？

Answer 1

谁帮我解决一下这个问题，很急啊

Answer 2

看＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
后面的那一段就可以了，

Answer 3

弄错了，不是二定义，错误是发现二义性名称
哪里错了呢？