Visual Basic.NET - Problema con datagridwien

   
Vista:

Problema con datagridwien

Publicado por Andres (6 intervenciones) el 03/04/2017 20:17:46
Hola buenas tarde para todos: mi pregunta es tengo un botón donde al pulsar sobre el busca en un datagridwien el texto introducido en un texbox pero la dadatadrid tiene 4 columnas con nombre de cabecera 1º Nº registro 2º Nombre 3º total puntos ranting y ultima Clave encontre un código en el foro que me fue muy bien, pero quisiera que solo buscara en la ultima columna de Clave no que también me busque en la 2ª Nombre. y si no existe que muestre un mensaje advirtiéndolo . gracia por todo: saludos
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

Problema con datagridwien

Publicado por Diego (149 intervenciones) el 04/04/2017 11:25:19
Si muestras alguna captura de tu aplicación, tal vez se entienda mejor. Está enlazado a datos la datagridview? O llenada a "mano"?
Como obtienes los datos que la llenan?

Saludos y +Bytes.
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

Problema con datagridwien

Publicado por Andres (6 intervenciones) el 04/04/2017 11:55:57
Hola, Sr. diego es cierto esta conectada a una base de dato y posterior mente le agregado una tabla y los 1º registro los rellene a mano y luego arrastre la tabla al formulario en modo de datagridwien.Lo que pretendo es que busque solo en la columna de clave que es la ultima ala derecha de las 4 columnas que tiene y sino existe que me advierta con un mensaje o bien mede la opción de crearlo. Gracias por su respuesta le quedo muy agradecido

este es código que utilizo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
    If TextBox1.Text = "" Then
        MessageBox.Show("La Clave jugador no pueden estar vacia", "Atención")
        TextBox1.Text = ""
        Exit Sub
    End If
 
    For i As Integer = 0 To Me.JUGADORESDataGridView.Rows.Count - 2
        For x As Integer = 0 To JUGADORESDataGridView.ColumnCount - 1
            If JUGADORESDataGridView.Rows(i).Cells(x).Value.ToString.Contains(Me.TextBox1.Text) Then
                Me.JUGADORESDataGridView.CurrentCell = JUGADORESDataGridView.Rows(i).Cells(x)
                MessageBox.Show("Clave jugador Correcta", "Atención")
                Button1.Visible = True
                TextBox1.Text = ""
                Close()
                Exit Sub
            Else
            End If
 
        Next x
    Next i
    MessageBox.Show("Clave jugador incorrecta, intentelo de nuebo", "Atención")
    TextBox1.Text = ""
    Me.Show()
    TextBox1.Select()
End Sub
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
Imágen de perfil de Edward

Problema con datagridwien

Publicado por Edward (146 intervenciones) el 06/04/2017 04:40:09
Buen día para todos,

Andres, solo debes quitar el (For x) y en el condicional IF colocar el nombre de la columna o el identificador numérico de la columna donde deseas realizar la búsqueda.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
If TextBox1.Text = "" Then
     MessageBox.Show("La Clave jugador no pueden estar vacia", "Atención")
     TextBox1.Text = ""
     Exit Sub
End If
 
For i = 0 To JUGADORESDataGridView.Rows.Count - 2
 
    If JUGADORESDataGridView.Rows(i).Cells("Clave").Value.ToString.Contains(Me.TextBox1.Text) Then
           Me.JUGADORESDataGridView.CurrentCell = JUGADORESDataGridView.Rows(i).Cells(x)
           MessageBox.Show("Clave jugador Correcta", "Atención")
           Button1.Visible = True
           TextBox1.Text = ""
           Close()
           Exit Sub
    Else
 
    End If
 
 
 Next i
 MessageBox.Show("Clave jugador incorrecta, intentelo de nuebo", "Atención")
 TextBox1.Text = ""
 Me.Show()
 TextBox1.Select()
End Sub


No lo alcance a probar.

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
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

Problema con datagridwien

Publicado por Andres (6 intervenciones) el 07/04/2017 09:17:25
Buenos días Edward: continuo teniendo problema con mi código, adate el código según tu respuesta pero sigue dándome error te digo donde meda el error y adjunto el codigo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
If TextBox1.Text = "" Then
     MessageBox.Show("La Clave jugador no pueden estar vacia", "Atención")
     TextBox1.Text = ""
     Exit Sub
End If
 
For i = 0 To JUGADORESDataGridView.Rows.Count - 2
 
    If JUGADORESDataGridView.Rows(i).Cells("Clave").Value.ToString.Contains(Me.TextBox1.Text) Then ' aquí meda error no encuentra el nombre celda ("Clave")
 
           Me.JUGADORESDataGridView.CurrentCell = JUGADORESDataGridView.Rows(i).Cells(x)' aquí  error no reconoce la (x)
           MessageBox.Show("Clave jugador Correcta", "Atención")
           Button1.Visible = True
           TextBox1.Text = ""
           Close()
           Exit Sub
    Else 
 
 Next i
 MessageBox.Show("Clave jugador incorrecta, intentelo de nuevo", "Atención")
 TextBox1.Text = ""
 Me.Show()
 TextBox1.Select()
End Sub

Que estoy a siendo mal ??, si pudieras orientarme un poco mas telo agradezco de corazón un saludo y buen dia
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
Imágen de perfil de Edward

Problema con datagridwien

Publicado por Edward (146 intervenciones) el 08/04/2017 19:38:05
Buen día para todos,

Andres, Debe verificar que la propiedad Name de la columna en la que estas haciendo la búsqueda se correcto ("Clave")


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
If TextBox1.Text = "" Then
     MessageBox.Show("La Clave jugador no pueden estar vacia", "Atención")
     TextBox1.Text = ""
     Exit Sub
End If
 
For i = 0 To JUGADORESDataGridView.Rows.Count - 2
 
    'Prueba solo validando con el simbolo igual
    If JUGADORESDataGridView.Rows(i).Cells("Clave").Value.ToString = TextBox1.Text Then
 
           'En esta linea claro que no te reconoce la x debido a que ya la hemos eliminado, debe ir el nombre de la columna
           Me.JUGADORESDataGridView.CurrentCell = JUGADORESDataGridView.Rows(i).Cells("Clave")
           MessageBox.Show("Clave jugador Correcta", "Atención")
           Button1.Visible = True
           TextBox1.Text = ""
           Close()
           Exit Sub
    Else
 
 Next i
 MessageBox.Show("Clave jugador incorrecta, intentelo de nuevo", "Atención")
 TextBox1.Text = ""
 Me.Show()
 TextBox1.Select()
End Sub

Si puedes dejar una captura de tu aplicación seria mejor.

Te dejo un ejemplo que desarrolle para buscar en cualquier columna.

https://aprendamosdeprogramacion.wordpress.com/2016/10/07/buscar-en-un-datadridview-sin-conexion-a-base-de-datos-en-vb-net/

Pero en el caso que solo quieras buscar en una sola columna te quedaría ese mismo ejemplo así.

1
2
3
4
5
6
7
8
9
10
11
12
13
':::Try Capturador de errores
Try
    ':::Nos permite recorrer las filas del DGTabla
    For Each Row As DataGridViewRow In DGTabla.Rows
          ':::Validamos el registro del DGTabla contra el criterio de busqueda
          If Row.Cells("Apellido").Value.ToString = TxtBuscar.Text Then
                ':::Nos ubicamos en la celda que contiene el registro encontrado
                DGTabla.CurrentCell = Row.Cells("Apellido")
          End If
    Next
Catch ex As Exception
       MsgBox("No se puede realizar la búsqueda por: " & ex.Message)
End Try

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Revisar política de publicidad