Hola amigos, veo que el foro ha tomado una forma extraña, pero bueno, espero veais mis preguntas igual, tengo un problemilla, tengo una base de datos dónde guardo en una tabla el número de ticket, la cantidad, dinero, ...etc...como el ticket en ocasiones tiene más de una línea me sucede que no puedo ver en el grid la suma total ...yo he hecho esto y funciona pero me da la suma de cada línea y no la suma del número de ticket que corresponde, ejemplo en vez de decir el ticket 1 suma 200, me dice línea por línea la suma de cantidad mas dinero y eso no me vale...os mando el código para ver si descubrís algo, gracias...
Public Sub conectagrid()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'Try
'comados.CommandText = "SELECT reg,Cantidad,Pts,Fecha,Producto,NombreFormaPago,Iv aVenta,Barra,NombTerminal,Plu,Anulado,IdComanda From VentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
'comados.CommandText = "SELECT reg,SumaDeTotal,Fecha,Barra,NombTerminal,Anulado From EstimaTickets2 WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
comados.CommandText = "SELECT reg,Fecha,Barra,NombTerminal,Plu,Anulado,IdComanda , ROUND(Sum(Cantidad*Pts),2) AS TOTAL From VentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF group by reg,Fecha,Barra,NombTerminal,Plu,Anulado,IdComanda order by reg"
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
comados.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
comados.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "VentasAhora")
'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)
'aquí cargo el datasource y el datamenber del datagrid
DgEstima.DataSource = datavacio
DgEstima.DataMember = "VentasAhora"
DgEstima.Refresh()
