我无法将值插入结构列表 [重复]

Question

我想做一个具有许多属性的产品列表，例如价格、名称、id 等。

我制作了一个模块并创建了一个结构产品，然后我制作了一个包含所有产品的列表。

添加按钮应该将文本字段中的值添加到列表中，但它不起作用。收到错误：

“'System.NullReferenceException' 类型的未处理异常 发生在 RFID.exe"

我在这一行得到错误：

Module1.newProduct.Add(product)

这是显示如何完成的代码，请帮助找出错误。

在模块 1 中：

Public newProduct As List(Of product)



Structure product
    Public productID As Integer
    Public productName As String
    Public Category As String
    Public releaseDate As Date
    Public price As Double
    Public quantity As Integer
End Structure

在主窗体中，在添加按钮中：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If TxtPID.Text <> "" Then

        Dim product As Module1.product
        product.productID = Convert.ToInt32(TxtPID.Text)
        product.productName = TxtPName.Text
        product.Category = LCategory.Text
        product.releaseDate = TxtRDate.Text
        product.price = Convert.ToDouble(TxtPrice.Text)
        product.quantity = Convert.ToInt32(TxtQuantity.Text)
        Module1.newProduct.Add(product)
        MsgBox("Product has been added.")
    Else
        MsgBox("Enter Product ID!")
    End If

End Sub

Answer 1

您需要为您的对象创建一个新实例newProduct

Public newProduct As New List(Of product)