2017-07-07 3 views
-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 

Ich habe Fehler bei myList = lst_detail.Items.Add (str (lst_detail.Items.Count + 1))Objektverweis nicht auf eine Instanz eines Objekts festgelegt. ListViewItem VB.NET

i von Text hinzufügen möchten listItem bekam aber null Fehler i füllen Sie dieses Textfeld

+0

Haben Sie es debuggt? Konnten Sie entweder lst_detail oder lst_detail.Items beim Ausführen von Code als null anzeigen? Aufgrund eines Fehlers scheint eines der Objekte null zu sein. – Sujith

+0

Ich bin neugierig, warum Sie 1 zu Count in dieser Zeile hinzufügen. – hatchet

+0

@hatchet zu zählen oder die Nummerierung der Spalte –

Antwort

0

lst_detail oder lst_detail.Items scheint Null zu sein. Debuggen Sie den Code, und Sie sollten in der Lage sein, einen dieser Nullwerte zu sehen. Wenn lst_detail den Wert null hat und Sie versuchen, auf lst_detail.Items zuzugreifen, wird die Ausnahme "Nullreferenz" ausgelöst. Dies bedeutet, dass Sie versuchen, auf ein Objekt mit einem Nullwert zuzugreifen.

+1

Wenn lst_detail oder lst_detail.Items null waren, hätte die zwei Zeilen oben genannte Zuweisung die Ausnahme zuerst ausgelöst. – hatchet

0

Es sieht so aus, als ob Sie versuchen, Daten aus einem bestimmten Index innerhalb des lst_detail zu ziehen. Ich habe den folgenden Code nicht getestet, aber etwas wie das Folgende könnte tun, was Sie versuchen zu tun.

myList = lst_detail.Items.Add (lst_detail.Items [lst_detail.Items.Count + 1] .ToString())

Verwandte Themen