(Visual Basic) 初学者问题 - 仅在按下按钮后将特定信息保存在列表视图中

Question

所以我有一个表格，用户可以在其中输入各种信息。 我还有 2 个保存按钮和 2 个列表视图。

第一个保存按钮保存所有信息并将它们放入第一个列表视图。 这工作正常

现在我希望第二个按钮只保存输入的 1 个信息，并且只在剩余的列表视图中显示该 1 个信息。 我要保存的信息是“药物”

第一个按钮和列表视图的代码 =

按钮：

Private Sub Btn_Save_Click(sender As Object, e As EventArgs) 处理 Btn_Save.Click

    Dim recipeNEW As Boolean

    If Recipe.currentRecipe Is Nothing Then
        Recipe.currentRecipe = New Recipe
        
        recipeNEW = True
    Else
        
        recipeNEW = False
    End If

    Recipe.currentRecipe.date = Me.Dtp_AusDat.Value.Date
    Recipe.currentRecipe = Me.Txt_Medication.Text

   
    If Me.Ckb_costs.Checked Then
        Recipe.currentRecipe.costly = True
    Else
        Recipe.currentRecipe.costly = False
    End If

    Recipe.currentRecipe.giveOutData()

    RefreshListView.UpdateListView_Recipe()


    Recipe.giveOutRecipeData()

    If recipeNEW = True Then
        
        DatabaseConnection.InsertIntoRecipe(Patient.currentRecipe.patID, Diagnosis.currentDiagnosis.diagID,
                                            Recipe.currentRecipe)
    Else
        
        DatabaseConnection.UpdateRecipe(Patient.currentPatient.patID, Diagnosis.currentDiagnosis.diagID,
                                        Recipe.currentRecipe)
    End If

End Sub

列表显示：

公共子 InitListView_Recipe()

    Frm_Diagnosis.Liv_Recipe.Clear()
    Frm_Diagnosis.Liv_Recipe.View = View.Details
    Frm_Diagnosis.Liv_Recipe.GridLines = True
    Frm_Diagnosis.Liv_Recipe.FullRowSelect = True
    Frm_Diagnosis.Liv_Recipe.Columns.Add("rezID")
    Frm_Diagnosis.Liv_Recipe.Columns.Add("Date")
    Frm_Diagnosis.Liv_Recipe.Columns.Add("Medication")

End Sub

Public Sub UpdateListView_Recipe()

    Frm_Diagnosis.Liv_Recipe.Items.Clear()

    Dim row As Integer = 0
    Dim recip As Rezept

    If Not Diagnosis.currentDiagnosis Is Nothing Then
        For Each recip In Diagnosis.currentDiagnosis.allRecipe
            Frm_Diagnosis.Liv_Recipe.Items.Add(recip.rezID)
            Frm_Diagnosis.Liv_Recipe.Items(row).SubItems.Add(rez.date)
            Frm_Diagnosis.Liv_Recipe.Items(row).SubItems.Add(rez.medication)
            row += 1
        Next
    End If

End Sub

我将如何编码仅保存药物信息的其他按钮和列表视图？

希望代码仍然有意义，我将其翻译成英文