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
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
Ich bin neugierig, warum Sie 1 zu Count in dieser Zeile hinzufügen. – hatchet
@hatchet zu zählen oder die Nummerierung der Spalte –