Visual Basic - Varialbes

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Varialbes

Publicado por Alvaro (1 intervención) el 02/02/2014 17:39:53
Hola Tengo unos datos, valores con decimales que se traen de un archivo de excel, en la configuracion regional del pc se establece la coma para los decimales, estos valores lo llevo a una columna tipo float, que identifica igualmente los decimales con la como.
La dificultad radica en que para almacenar los datos, llevo la informacion a un DataGridView, depues lo asigno a una variable de tipo double, para que permita decimal, pero cambia la como por un punto y no permite anexar la informcion a la table de la base de datos tipo float.
Estoy utilizando visual studio 2012
Este es el codigo que utilizo
For Each Dt_Row3 As DataGridViewRow In DataGridView2.Rows
Dim Dt1 As String = Dt_Row3.Cells("Factura").Value.ToString
'(El valor que trae es 12,45)
Dim Dt2 As Double = Dt_Row3.Cells("VALOR").Value.ToString
'Cuenado lo asigna a Dt2 le cambia la , por el . 12.45

Dim StrSQL As String = "INSERT INTO TmpPagos (Factura, VALOR) SELECT '" & Dt1 & "','" & Dt2 & "'"
cmndRp = New SqlCommand(StrSQL, cc)
Dim iA As Integer = cmndRp.ExecuteNonQuery
Reg = 1 + Reg
StrFac = Dt1
Next

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Varialbes

Publicado por Antoni Masana (558 intervenciones) el 03/02/2014 10:23:25
Quizas esto te ayude. No se exactamente ni donde ni como debes ponerlo.

En un listado necesitaba la COMA como separador de MILES y el PUNTO como DECIMAL independiente de la configuración de Windows.

Primero guardo la configuración y asigno la que me interesa.

1
2
3
4
5
6
7
    ' </> ---&--- </>  Cofiguracion de números
 
    c_Mil = GetValueCR(15)
    c_Dec = GetValueCR(14)
 
    SetLocaleInfo &H400, 15, ","        'Separación de miles
    SetLocaleInfo &H400, 14, "."        'Separador decimal

Una vez finalizado el listado restauro la situación anterior


1
2
SetLocaleInfo &H400, 15, c_Mil      'Separación de miles
    SetLocaleInfo &H400, 14, c_Dec      'Separador decimal

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar