suma la cantidad solo 1º celda

guillebomtrasmiti · #1 (**permalink**) 01/05/2011, 04:02

hola, os paso mi supero código amigos y espero alguien pueda descubrir por que me cambian los datos de todas las filas del datagridview pero solo me cambian teniendo en cuenta la primera cifra del la primera celda del datagrid y no teniendo en cuenta la cantidad de cada celda....

Dim adaptsuma As New OleDbDataAdapter
Dim setdasuma As New DataSet

Dim comsuma = conexion.CreateCommand

adaptsuma.UpdateCommand = comsuma

comsuma.CommandType = CommandType.Text
comsuma.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts = ROUND (@pts2 /(" & TxtPorcentaje.Text & "/100),2)"
'Where NombreFormaPago <> ('TARJETA CREDITO')"

For i = 0 To DgTotales.Rows.Count - 1
Dim total As String
total = CStr((DgTotales.Rows(i).Cells(2).Value))
'MessageBox.Show(total)
comsuma.Parameters.AddWithValue("@pts2", (total))
Next

conexion.Open()
comsuma.ExecuteNonQuery()
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

gracias anticipadas amigos

guillebomtrasmiti · #2 (**permalink**) 01/05/2011, 09:34

nadie responde a nada en este foro?¿?, es de noche en el mundo y todos duermen?¿?

guillebomtrasmiti · #3 (**permalink**) 01/05/2011, 13:34

he cambiado la forma de hacerlo, espero alguien me conteste ahora, si os fijais en el código, vereis que saco un messagebox con el resultado, me da correcto pero como lo inserto en las celdas correspondientes al datagridview...gracias por adelantado

guillebomtrasmiti · #4 (**permalink**) 01/05/2011, 13:35

Dim total As Decimal = 0
Dim valor As Decimal = 0
Dim text As String
text = CStr(CInt(TxtPorcentaje.Text))
For i As Integer = 0 To DgTotales.Rows.Count - 1 Step 1
valor = CDec(DgTotales.Rows(i).Cells(2).Value)
'MessageBox.Show(CStr(DgTotales.Rows(i).Cells(2).V alue))
'For Each row As DataGridViewRow In DgTotales.Rows
' If row.Cells(2).Value IsNot Nothing Then
If valor <> 0 Then
total = CDec((valor) / CDbl(text) * 100)
'MessageBox.Show(CStr(total))
'valor = (valor * text) / 100
MessageBox.Show(CStr(total))
End If
Next

este es el código que os comenté antes

Aquaventus · #5 (**permalink**) 01/05/2011, 15:28

Hola guille! Que es lo que deseas hacer? sumar toda una columna?

guillebomtrasmiti · #6 (**permalink**) 01/05/2011, 15:29

sigo preguntando cosas que nadie contesta, pero si lo arreglo tranquilos lo cuelgo para que si algún día alguien lo necesita lo pueda aprovechar, he avanzado, ahora el único problema es que no se como parar el bucle for, me cambia todo bien pero el bucle for se hace infinito y no se pararlo alguién me ayuda?¿?

Dim total As Decimal = 0
Dim valor As Decimal = 0
Dim text As String
Dim i As Integer
text = CStr(CInt(TxtPorcentaje.Text))
For i = 0 To DgTotales.Rows.Count - 1 'Step 1
valor = CDec(DgTotales.Rows(i).Cells(2).Value)
'MessageBox.Show(CStr(DgTotales.Rows(i).Cells(2).V alue))
'For Each row As DataGridViewRow In DgTotales.Rows
' If row.Cells(2).Value IsNot Nothing Then
If valor <> 0 Then
total = CDec((valor) / CDbl(text) * 100)
'MessageBox.Show(CStr(total))
DgTotales.Rows(i).Cells(2).Value = total
' MessageBox.Show(CStr(total))
'DgTotales.Refresh()
End If
Next

guillebomtrasmiti · #7 (**permalink**) 01/05/2011, 15:30

hola aquaaaaa mi salvador solo estás tu en el planeta foros web...viva aquaaaaa solicito un monumento para este hombre...se merece un monumento yaaaaa¡¡¡¡¡

Aquaventus · #8 (**permalink**) 01/05/2011, 15:38

estoy en el msn

guillebomtrasmiti · #9 (**permalink**) 01/05/2011, 16:21

pues genial, todo este rato y no me va el msn, genial, simplemente genial mi puñetero pc

Aquaventus · #10 (**permalink**) 01/05/2011, 16:25

pero que deseas hacer que no entendi mucho tu finalidad...?

guillebomtrasmiti · #11 (**permalink**) 01/05/2011, 16:28

mira super aqua, tengo un texbox dónde pongo por ejemplo 10, al pulsar un botón que tengo deseo que la columna 2 del datagrid cambie sus datos sumandole un 10% y lo consigo pero no soy capaz de parar el bucle for...se hace infinito y acaba dando un desbordamiento, el código lo tienes arriba...joer creo que tengo un virus tio...no me abren la mitad de los programas...esto si que es una putadilla ....bueno eso a ver si tu sabes amigo, graciasss como siempre

Aquaventus · #12 (**permalink**) 01/05/2011, 16:44

Espera me equivoqué jajaja...

guillebomtrasmiti · #13 (**permalink**) 01/05/2011, 16:50

Unable to cast object of type 'System.Windows.Forms.DataGridViewRow' to type 'System.Data.DataRowView'.

marca este error, joer que putada lo del messenger ahora estoy liado con el por ver que le pasa a mi pc gracias por cierto...pero ya ves lanza el error amigo

Aquaventus · #14 (**permalink**) 01/05/2011, 16:54

Código vb.net:

Ver originalFor i As Integer = 0 To DgTotales.Rows.Count - 1
valor = CDec(DgTotales.Rows(i).Cells(2).Value)
 
If valor <> 0 Then
total = CDec((valor) / CDbl(Text) * 100)
DgTotales.Rows(i).Cells(2).Value = total
End If
Next

no entiendo porque dices bucle infinito... sino no veo que haga algo infinito ya que esta definido por la cantidad de filas de tu datagrid...

guillebomtrasmiti · #15 (**permalink**) 01/05/2011, 16:58

si pongo un messagebox.show voy viendo que cambia celda a celda, cuando termina todas las celdas del grid...deja los valores iniciales y vuelve a empezar ...así sin parar hasta que da un error de desbordamiento

Aquaventus · #16 (**permalink**) 01/05/2011, 17:00

aun tienes el teamviewer?? para que me mandes tu ID y tu pass por mensaje privado...

guillebomtrasmiti · #17 (**permalink**) 01/05/2011, 17:02

arreglado....joer lo he arreglado con un antivirus gratuito...y yo con el panda pagado en el pc...para nada me conecto ahroa

guillebomtrasmiti · #18 (**permalink**) 03/05/2011, 15:14

alguna sugerencia nueva?¿?, sigo en ello luchando y nada

Aquaventus · #19 (**permalink**) 03/05/2011, 15:29

Ayudando un poco a esclarecer lo que quiere GuilleBomtrasmiti es que el lista en un datagridview datos de una tabla filtrados por una fecha, el llega a modificar su datagridview en proceso de ejecución, hasta allí todo bien, su problema es refrescar estos cambios en su tabla solo a aquellos se les ah hecho el cambio que pertenecen a una fecha determinada por el usuario, pero cuando realiza el update modifica toda su tabla, lo cual aquí el problema, cabe recalcar que su base de datos es un archivo access, espero vuestras ayudas para con este usuario. Saludos!

.

Aquaventus · #20 (**permalink**) 04/05/2011, 09:34

Guille! conversando y averiguando con mi fiel amigo Ka0stjs podemos deducir que este link puede serte util, ya que no habría la necesidad de modificar en tu datagrid y luego refrescarlo en tu BD sino directamente a tu tabla y luego listar la nueva data de tu tabla en el datagridview. Esperamos haberte sido de ayuda, lee el link que te estamos pasando y nos comentas!. Saludos!

.

guillebomtrasmiti · #21 (**permalink**) 04/05/2011, 12:06

voy a verlo super aquaaa genial ya te cuentoooo¡'''¡''''

)

guillebomtrasmiti · #22 (**permalink**) 04/05/2011, 12:24

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Dim com1 = conexion.CreateCommand
Dim adapt1 As New OleDbDataAdapter
Dim setda1 As New DataSet

adapt1.SelectCommand = com1
adapt.UpdateCommand = com

com1.CommandType = CommandType.Text

com1.CommandText = "SELECT reg,Cantidad,Pts,Fecha,NombreFormaPago,IvaVenta,Ba rra,NombTerminal From IntroduccionDeVentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and IvaVenta = 18 and Fecha BETWEEN @FI AND @FF ORDER BY reg"

'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
com1.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
com1.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
com1.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com1.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
adapt1.Fill(setda, "IntroduccionDeVentasAhora")

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO')"

conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteScalar()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

amigos...estoy enamorado de vosotros....se que me quereis...y yo a vosotros también, pero no hay mandera humana, hice lo mismo que ponía en el link..y el cambio resulta a toda la tabla y no a lo filtrado en el grid...fijaossss este es mi código

guillebomtrasmiti · #23 (**permalink**) 04/05/2011, 12:52

tambien he probado esto, pero además de que sigue cambiando toda la tabla me toma solo el importe de la primera celda y me iguala todos los importes a este...ahhhhh me muero'''

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
adapt.UpdateCommand = com
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (@Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO')"

For i As Integer = 0 To DgTotales.Rows.Count - 1
com.Parameters.AddWithValue("@Pts", DgTotales.Rows(i).Cells(2).Value)
Next

conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

guillebomtrasmiti · #24 (**permalink**) 04/05/2011, 12:57

esto provoca el mismo error que el anterior ejemplo

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
adapt.UpdateCommand = com
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (@Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO')"

For Each row As DataGridViewRow In DgTotales.Rows
com.Parameters.AddWithValue("@Pts", row.Cells(2).Value)
Next

conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

Aquaventus · #25 (**permalink**) 04/05/2011, 12:58

Te actualiza todos porque en no hay un parametro en el cual le digas desde tales fechas a tu consulta trabaja con el where

guillebomtrasmiti · #26 (**permalink**) 04/05/2011, 12:58

esto provoca el mismo error que el anterior ejemplo

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand
adapt.UpdateCommand = com
com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (@Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO')"

For Each row As DataGridViewRow In DgTotales.Rows
com.Parameters.AddWithValue("@Pts", row.Cells(2).Value)
Next

conexion.Open()
Convert.ToDecimal(CInt(com.ExecuteNonQuery()))
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

Aquaventus · #27 (**permalink**) 04/05/2011, 13:03

Me referia a que trabajes algo como esto un filtro mas para segun tu fecha que seleccionabas :

UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (@Pts / (" & TxtPorcentaje.Text & "/100),2) Where NombreFormaPago <> ('TARJETA CREDITO') AND fecha = " & Convert.toDatetime(datetimepicker.text)

guillebomtrasmiti · #28 (**permalink**) 04/05/2011, 13:11

ok, voy a probarlo también, imaginate que funciona...¿¿¿¿¡¡¡¡ voy a LIMA y te doy un beso...jajajaj en los morrossss

lo pruebo¡¡¡

guillebomtrasmiti · #29 (**permalink**) 04/05/2011, 13:18

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text
com.CommandText = "UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts / (" & TxtPorcentaje.Text & "/100),2) and Fecha BETWEEN @FI AND @FF Order by Pts"""

com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapt.UpdateCommand = com

conexion.Open()
com.ExecuteNonQuery()
DgTotales.Rows.Remove(DgTotales.CurrentRow)
conexion.Close()

me manda este error;
Error de sintaxis (falta operador) en la expresión de consulta 'ROUND (Pts / (10/100),2) and Fecha BETWEEN @FI AND @FF Order by Pts"'.

ajjjj me da algo

Aquaventus · #30 (**permalink**) 04/05/2011, 13:23

Prueba así :
"UPDATE IntroduccionDeVentasAhora SET Pts =ROUND (Pts / (" & TxtPorcentaje.Text & "/100),2) where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF Order by Pts"