Ordenar datos de un datagridview
Publicado por SIMON (22 intervenciones) el 24/05/2014 03:13:40
Hola a todos, tengo una consulta Cliente, que busca por código, nombre y apellidos, hasta ahí todo va perfecto y funciona bien.
Este es el código de mi consulta.
Tengo tres RadioButton, uno para ordenar por código, otro por Nombre, y el último por Apellido
Después que el datagridview está lleno con los datos, cual es el código para ordenar los datos., ya sea por código, nombre y apellidos.
Gracias de por adelantado.
Este es el código de mi consulta.
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Try
Dim Consulta As String
If CboBuscar.Text = "" Then
MsgBox("Debe seleccionar una opción de búsqueda", vbExclamation, "Error")
CboBuscar.Focus()
Return
End If
If CboBuscar.Text = "CODIGO" Then
Consulta = " Select codigo as Código, Nom_cli as Nombre, apell_cli as Apellidos, dir_cli as Dirección,ced_cli as Cédula, bal_cli as Balance from Tbla_Clientes where codigo LIKE '%" + TextBuscar.Text + "%'"
Dim ObjDataSet As New DataSet()
Dim Tbla_ClienteMemoria As New DataTable()
Dim objAdap As New OleDbDataAdapter(Consulta, conexion)
conexion.Close()
conexion.Open()
objAdap.Fill(Tbla_ClienteMemoria)
Me.dgvConBuscaCliente.DataSource = Tbla_ClienteMemoria
conexion.Close()
End If
If CboBuscar.Text = "NOMBRE" Then
Consulta = " Select codigo as Código, Nom_cli as Nombre, apell_cli as Apellidos, dir_cli as Dirección,ced_cli as Cédula, bal_cli as Balance from Tbla_Clientes where nom_cli LIKE '%" + TextBuscar.Text + "%'"
Dim ObjDataSet As New DataSet()
Dim Tbla_ClienteMemoria As New DataTable()
Dim objAdap As New OleDbDataAdapter(Consulta, conexion)
conexion.Close()
conexion.Open()
objAdap.Fill(Tbla_ClienteMemoria)
Me.dgvConBuscaCliente.DataSource = Tbla_ClienteMemoria
conexion.Close()
End If
If CboBuscar.Text = "APELLIDO" Then
Consulta = " Select codigo as Código, Nom_cli as Nombre, apell_cli as Apellidos, dir_cli as Dirección,ced_cli as Cédula, bal_cli as Balance from Tbla_Clientes where apell_cli LIKE '%" + TextBuscar.Text + "%'"
Dim ObjDataSet As New DataSet()
Dim Tbla_ClienteMemoria As New DataTable()
Dim objAdap As New OleDbDataAdapter(Consulta, conexion)
conexion.Close()
conexion.Open()
objAdap.Fill(Tbla_ClienteMemoria)
Me.dgvConBuscaCliente.DataSource = Tbla_ClienteMemoria
conexion.Close()
End If
Tengo tres RadioButton, uno para ordenar por código, otro por Nombre, y el último por Apellido
Después que el datagridview está lleno con los datos, cual es el código para ordenar los datos., ya sea por código, nombre y apellidos.
Gracias de por adelantado.
Valora esta pregunta
0
