none
Redondear Formato Numérico en un Listview en VB.NET RRS feed

  • Debate general

  • Buenos días, al cargar un listview una columna de datos numericos  por ejemplo 1,000.53 lo cargar así 1001, no encuentro la manera de ponerle formato numerico "#,##0.00".

    

    f

      Sub CargarDatos()
            conextarse.Open()
            Dim sql As String = "SELECT Cuenta,Denominacion, Debe, Haber FROM TAsientosParametros WHERE Asiento='VP'"
            'Dim CARGA As New OleDb.OleDbDataAdapter("SELECT * FROM PlanContable WHERE Tipo_Registro='VEN' ORDER BY CUENTA", conextarse)

            MiAdaptador = New OleDbDataAdapter(sql, conextarse)
            MiAdaptador.Fill(TablaList)
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'TablaList.Rows(0).Item("Cuenta") = "701101"
            'TablaList.Rows(0).Item("Denominacion") = "Terceros"

            Dim Renglon As DataRow = TablaList.NewRow()

            TablaList.Rows(0).Item("Debe") = CDbl(txtTotal.Text)
            TablaList.Rows(1).Item("Debe") = Val(txtIGV.Text)

            TablaList.Rows.Add(Renglon)

            TablaList.Rows(2).Item("Cuenta") = "701101"
            TablaList.Rows(2).Item("Denominacion") = "Terceros"
            TablaList.Rows(2).Item("Debe") = 3220

            ListView2.Items.Clear()
            For Each registro In TablaList.Rows
                Dim fila As ListViewItem
                fila = ListView2.Items.Add(registro("Cuenta")) ' cabecera del listview-ItemPrincipal
                With fila
                    .SubItems.Add(registro("Denominacion")) '1 los subItem o el resto de las columas
                    .SubItems.Add(registro("Debe"))
                    '.SubItems.Add(registro("Haber")) '1 los subItem o el resto de las columas
                    ''Aqui puedes ir agregando todas las columnas que quieras mostrar de tu tabla
                End With
            Next
        End Sub

    Gracias por su apoyo 


    Miguel Arias

    miércoles, 29 de mayo de 2019 15:53

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/7d939853-4e7d-497b-a67c-9ca3c91eaa9b/formato-numerico-personalizado?forum=vbes

    https://social.msdn.microsoft.com/Forums/es-ES/932fd9b6-6d68-4201-94e4-b27dd9f3a34d/redondear-decimales-vbnet?forum=vbes

    https://social.msdn.microsoft.com/Forums/es-ES/5af8be6e-556e-43d0-a156-4e0e9fb06de3/redondear-un-valor-de-un-resultado-para-mostrar-en-textbox-vbnet?forum=vsgenerales

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.


    miércoles, 29 de mayo de 2019 17:54