Filtrar en DataGrid
Publicado por SandraP (12 intervenciones) el 22/08/2017 14:45:27
Hola chicos, estoy "trancada", quiero que para cada fila de mi datagrid
- Mientras sea la misma fecha, mismo numero de factura, filtre en una sola fila y coloque
la suma del campo (p_monto)
Ejemplo:
Así esta la tabla:(tiene mas campos, solo coloco estos para no hacerlo mas largo)
- Mientras sea la misma fecha, mismo numero de factura, filtre en una sola fila y coloque
la suma del campo (p_monto)
Ejemplo:
Así esta la tabla:(tiene mas campos, solo coloco estos para no hacerlo mas largo)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Fecha Factura Monto
---------------------------------------------
01/10/2017 000200 10.00001/10/2017 000200 15.00001/10/2017 000200 1,00002/10/2017 000201 5.00002/10/2017 000201 15.00003/10/2017 000202 2,000.....................................................................
etc etc
Y así quiero que me aparezca en la datagrid:Fecha Factura Monto
----------------------------------------------------------
01/10/2017 000200 26.00002/10/2017 000201 20.00003/10/2017 000202 2,000.....................................................................
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
Aqui mi codigo, obviamente me muestra todos los registros, se me ocurre un
Mientras sea misma fecha, mismo numero de factura - sume el valor del campo monto - Agregar a la datagridnext
Pero...pues eso, q no doy con el código...
Private Sub VerTicket_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'NeoliteDataSet.tbl_prueba' Puede moverla o quitarla según sea necesario.
Me.Tbl_pruebaTableAdapter.Fill(Me.NeoliteDataSet.tbl_prueba)
Dim conexion As MySqlConnection = New MySqlConnection Dim comando As MySqlCommand = New MySqlCommandcomando.Connection = conexion
Try
conexion.ConnectionString = "Server=localhost;Port=3306;Database=Clientes;Uid=root;Pwd=1111;"
'MsgBox("Te has conectado al servido de manera correcta", vbInformation)
Catch ex As Exception
MsgBox(ex.Message)
End Try
comando.CommandText = "SELECT p_fecha, p_nrof, p_monto FROM tbl_prueba"
Dim dt As DataTable = New DataTableDim daa As MySqlDataAdapter = New MySqlDataAdapter(comando)
daa.Fill(dt)
DataGridViewX1.DataSource = dt
End Sub
Valora esta pregunta
0