e Then
        MsgBox "请选择记录"
        Exit Sub
      End If
      p = Adodc1.Recordset.AbsolutePosition
      TmpId = MyRes.GetId(Trim(Adodc1.Recordset.Fields(1)))
      If Mylres.ResInLine(TmpId) > 0 Then
        MsgBox "此餐厅在线路中使用，不能删除"
        Exit Sub
      End If
      If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
        MyRes.Delete (TmpId)
        Refresh_Res
        If p - 1 > 0 Then
          Adodc1.Recordset.Move p - 1
        End If
      End If
    End Sub
    
    Private Sub Cmd_Modi_Click()
      If Adodc1.Recordset.EOF = True Then
        MsgBox "请选择记录"
        Exit Sub
      End If
      p = Adodc1.Recordset.AbsolutePosition
      ResEdit.OriId = MyRes.GetId(Adodc1.Recordset.Fields(1))
      ResEdit.OriAreaName = ComboName.Text
      ResEdit.OriType = ComboType.ListIndex + 1
      ResEdit.OriResName = Trim(A