Vb.net 列表视图子项将Int转换为查看数字
我想在ListView中以货币或数字的形式显示分配、债务和余额,但只有一列有效。如果我像上面那样转换其他列表,它将使我的ListView为空。如果您的ListView为空,那么这可能是因为抛出了异常,正如您在Catch块中调用Clear一样。也许你应该找出这个例外是什么,这样你就可以考虑解决问题的原因了Vb.net 列表视图子项将Int转换为查看数字,vb.net,listview,Vb.net,Listview,我想在ListView中以货币或数字的形式显示分配、债务和余额,但只有一列有效。如果我像上面那样转换其他列表,它将使我的ListView为空。如果您的ListView为空,那么这可能是因为抛出了异常,正如您在Catch块中调用Clear一样。也许你应该找出这个例外是什么,这样你就可以考虑解决问题的原因了 Dim rcc As String Try rcc = saaoblv.SelectedItems(0).Text strSQL = "SELECT * from
Dim rcc As String
Try
rcc = saaoblv.SelectedItems(0).Text
strSQL = "SELECT * from budget where ctrl = '" & rcc & "' and types = 'MOOE'"
CONNECTION.Open()
cmd = New MySqlCommand(strSQL, CONNECTION)
dr = cmd.ExecuteReader()
MOOElv.Items.Clear()
Do While dr.Read()
Dim lv As New ListViewItem(dr("Particular").ToString())
lv.SubItems.Add(dr("Ep").ToString())
lv.SubItems.Add(CInt(dr("Allotment")).ToString("#,##0.00"))
lv.SubItems.Add(CInt(dr("Obligation")).ToString("#,##0.00"))
lv.SubItems.Add(dr("Balance").ToString())
MOOElv.Items.AddRange(New ListViewItem() {lv})
Loop
dr.Close()
CONNECTION.Close()
cmd.Dispose()
Catch ex As Exception
MOOElv.Clear()
End Try
lv.SubItems.Add(CInt(dr("Allotment")).ToString("#,##0.00"))
lv.SubItems.Add(CInt(dr("Obligation")).ToString("#,##0.00"))