.RemoveItem List1.ListIndex
      End If
    End Sub
    
    Private Sub Cmd_Modi_Click()
      If List1.ListIndex = -1 Then
        MsgBox "请选择项目名称"
        Exit Sub
      End If
      
      '检查娱乐项目名称是否有效
      If Trim(txtItem) = "" Then
        MsgBox "请输入娱乐项目名称"
        Exit Sub
      End If
    
      '判断地域信息是否存在
      If List1.Text <> Trim(txtItem) Then
        If MyAitem.In_DB(OriAid, txtItem) = True Then
          MsgBox Trim(txtItem) + "已存在"
          Exit Sub
        End If
      End If
      
      MyAitem.Aid = OriAid
      MyAitem.Item = MakeStr(txt