 
			
				04/05/2011, 15:58
			
			
			     |  
      |    |    |    Fecha de Ingreso: noviembre-2010  Ubicación: madrid  
						Mensajes: 478
					  Antigüedad: 15 años Puntos: 5     |        |  
  |      Respuesta: suma la cantidad solo 1º celda        ARREGLADO AMIGO PONGO EL CÓDIGO PARA QUIEN LE SIRVA   
 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) where NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF" 
        'Where NombreFormaPago <> ('TARJETA CREDITO')" 
        'com.Parameters.AddWithValue("@Pts", DgTotales.Columns.Item("Pts").Index.ToString) 
        com.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy")) 
        com.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy")) 
        'For Each row As DataGridViewRow In DgTotales.Rows 
        'com.Parameters.AddWithValue("@Pts", row.Cells(2).Value) 
        ' Next 
        adapt.SelectCommand = com   
        conexion.Open() 
        com.ExecuteNonQuery() 
        'Convert.ToDecimal(CInt(com.ExecuteNonQuery())) 
        DgTotales.Rows.Remove(DgTotales.CurrentRow) 
        conexion.Close()   
JAJAJAJAJAJA ARREGLADO..SUPER AQUAAAAAAAAAA TE QUIEROOOOO           |