Título: Redondear Formato Numérico en un Listview en VB.NET Publicado por: mangelperu en 29 Mayo 2019, 22:44 pm 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".
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 |