未将对象引用设置为对象的实例。 ListViewItem的VB.NET

-1

Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click 
    Dim myList As ListViewItem 

    Dim JmlList As Integer 
    Dim i As Integer 

    JmlList = lst_detail.Items.Count - 1 
    i = 0 

    myList = lst_detail.Items.Add(str(lst_detail.Items.Count + 1)) // error at this 
    myList.SubItems.Add(txtKodeObat.Text.Trim) 
    myList.SubItems.Add(txtNamaObat.Text.Trim) 
    myList.SubItems.Add(txtHarga.Text.Trim) 
    myList.SubItems.Add(txtQty.Text.Trim) 
    myList.SubItems.Add(txtJumlah.Text.Trim) 

    Dim subtotal As Double = 0 

    JmlList = lst_detail.Items.Count - 1 
    For i = 0 To JmlList 
     subtotal = subtotal + Val(lst_detail.Items(i).SubItems(5).Text) 
    Next 
    txtSubTotal.Text = Format(subtotal, "##########") 
    txtPPn.Text = Format(subtotal * 0.1, "##########") 
    txtTotal.Text = Val(txtSubTotal.Text) + Val(txtPPn.Text) 
    txtKodeObat.Text = "" 
    txtNamaObat.Text = "" 
    txtHarga.Text = "0" 
    txtQty.Text = "" 
    txtJumlah.Text = "0" 
    txtKodeObat.Focus() 

End Sub

我在myList中= lst_detail.Items.Add遇到错误（STR（lst_detail.Items.Count + 1））未将对象引用设置为对象的实例。 ListViewItem的VB.NET

我想从文本添加到列表项，但得到零误差我有填充该文本框

来源

2017-07-07 Muhammad Fahmi Hassan

你有调试它？在运行代码时，您是否可以将lst_detail或lst_detail.Items视为null？因为基于错误，其中一个对象似乎为空。 – Sujith

我很好奇你为什么要在该行中加1 Count。 – hatchet

@hatchet计数或编号列 –

lst_detail或lst_detail.Items似乎为空。调试代码，你应该可以看到其中的一个null。如果lst_detail为空，并且您正在尝试访问lst_detail.Items，则会抛出“空引用”execption - 这意味着您正尝试从具有空值的对象访问某些内容。

来源

2017-07-07 03:54:57 Sujith

如果lst_detail或lst_detail.Items为空，则上面的两行分配将首先引发异常。 – hatchet

它看起来像你试图从lst_detail中的特定索引中提取数据。我没有测试下面的代码，但类似下面的代码可能会做你想做的事情。

myList中= lst_detail.Items.Add（lst_detail.Items [lst_detail.Items.Count + 1]的ToString（））

来源

2017-07-07 04:07:09 TheRock

未将对象引用设置为对象的实例。 ListViewItem的VB.NET

回答

相关问题