Question

我有一个子视图列表视图，在其中一个子视图中我需要使值显示为货币。我使用'从字符串转换'N2“到'整数'类型的错误的代码无效'。我知道我需要格式化sub，但我不知道该怎么做。

如果有人能指出正确的编码方式，我将不胜感激。非常感谢

Sub filllistview()
        Try
            'creatconn()
            cn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("Select * from Postings", cn)
            dr = cmd.ExecuteReader()
            While dr.Read()

                ListView1.Items.Add(dr(4).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(11).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(7).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(5).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(14).ToString())
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr(3).ToString("N2")) <--- **This is the subitem**

            End While

        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        Finally
            dr.Close()
            cn.Close()
        End Try
    End Sub

Answer 1

dr(3)会返回Object类型。首先将其转换为整数：

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(CInt(dr(3)).ToString("C"))

将Listview子项字符串转换为货币

1 个答案: