Visual Basic.NET - Cerrar Formulario

   
Vista:

Cerrar Formulario

Publicado por Cristian (1 intervención) el 24/01/2016 00:43:26
Hola amigos del foro, tengo el sig. código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Select Case frmPagos.txtpago.Text
  Case Is = "1"
    If frmCobros.datacobros.Rows.Count <> 0 Then
      For filas As Integer = 0 To frmCobros.datacobros.RowCount - 1
        For Columnas As Integer = 0 To frmCobros.datacobros.ColumnCount - 1
          If frmCobros.datacobros.Item("id_pago", filas).Value.ToString = frmPagos.txtpago.Text Then
            MessageBox.Show("Forma de pago ya utilizada.", "Cobranzas", MessageBoxButtons.OK,     MessageBoxIcon.Exclamation)
            frmPagos.limpiar()
          Else
            Exit For
          End If
        Next
      Next
      Me.Close()
      frmPagos.dtpfecha.Value = Date.Now
    Else
      frmPagos.dtpfecha.Value = Date.Now
      Me.Close()
    End If
 
Case is........
End Select

El código funciona perfectamente, el unico problema es que cuando me tira el MessageBox al Aceptar me cierra el formulario, probe sacando el Me.close despues del Exit For pero no cierra el formulario cuando no me tira el MessageBox.
Para que se entienda, necesito lograr que se cierre el formulario cuando no me tira el MessageBox y que NO se cierre despues de Aceptar el MessageBox. Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cerrar Formulario

Publicado por Krlos Kstro (33 intervenciones) el 25/01/2016 00:44:20
Mueve el close a:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Select Case frmPagos.txtpago.Text
  Case Is = "1"
    If frmCobros.datacobros.Rows.Count <> 0 Then
      For filas As Integer = 0 To frmCobros.datacobros.RowCount - 1
        For Columnas As Integer = 0 To frmCobros.datacobros.ColumnCount - 1
          If frmCobros.datacobros.Item("id_pago", filas).Value.ToString = frmPagos.txtpago.Text Then
            MessageBox.Show("Forma de pago ya utilizada.", "Cobranzas", MessageBoxButtons.OK,     MessageBoxIcon.Exclamation)
            frmPagos.limpiar()
          Else
 
                 Me.Close() '''''''''''''''''''''''''''''''''''''''''''
                  Exit For
 
          End If
        Next
      Next
      frmPagos.dtpfecha.Value = Date.Now
    Else
      frmPagos.dtpfecha.Value = Date.Now
      Me.Close()
    End If
 
Case is........
End Select

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cerrar Formulario

Publicado por Cristian (1 intervención) el 26/01/2016 01:53:29
Hola, gracias por la ayuda, el problema es cuando el datacobros es mayor que 1, es decir si tengo una fila, arroja el Message, doy Aceptar y NO se cierra el formulario, hasta acá todo OK, pero si tengo mas de una fila, arroja el Message, doy Aceptar y se cierra el formulario.
Como puedo mejorar el código o donde tendría que mover el Me.Close

Muchas gracias, Sds
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar