Windows 窗体无法从我的数据库获取更新？

Question

我最近才开始摆弄 Visual Basic Express 和 Sql 数据库。

我已经成功启动并运行了一个数据库，并且可以从中查询信息。我什至创建了一个表单，可以将新条目添加到我使用的表中。

第一个表单有一个组合框，其中列出了我的表中的玩家姓名。 Form2 允许您向表添加新名称，但我添加的任何内容都不会立即在 Form1 中更新。我必须重新启动程序才能看到新条目。即便如此，这些新条目似乎也不是永久性的，因为它们最终会消失。

我的 Form1 代码：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim db = New PlayerTestDataContextDataContext()
    Dim PlayerList = From List In db.Players
                     Select List.PlayerName

    For Each PName In PlayerList

        cbPList.Items.Add(PName)

    Next

End Sub


Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click

    frmNewPlayer.Show()

End Sub

End Class

Form2 代码：

   Private Sub btnCPlayer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCPlayer.Click

    Dim db = New PlayerTestDataContextDataContext()

    If txtNewPlayer.Text = "" Then
        lbWarning.Text = "Please enter a name!"
    Else
        Dim Plyr As New Player With {
            .PlayerName = txtNewPlayer.Text}
        db.Players.InsertOnSubmit(Plyr)
        db.SubmitChanges()
        Me.Close()

    End If

End Sub

不确定这里出了什么问题...任何帮助都会受到赞赏。如果我在这里忽略了一个明显的答案，请原谅我，我不确定我需要寻找什么。

Answer 1

那应该可以解决问题。但你需要读一些书...

Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click    
    if frmNewPlayer.ShowDailog() == DialogResult.Ok
        Dim db = New PlayerTestDataContextDataContext()
        Dim PlayerList = 
        From List In db.Players                     
        Select List.PlayerName  
        ' 
        cbpList.Items.Clear()
        '
        For Each PName In PlayerList
            cbPList.Items.Add(PName)    
        Next
    end if
End Sub

Answer 2

您实际上从未告诉 Form1 更新其列表。

这就是现在发生的情况：

1. Form1_Load
   • 填充您的玩家列表。
2. 用户按下 btnCreate (btnCreate_Click)。
   • btnCreate 启动 frmNewPlayer（我假设是“Form2”）。
3. 用户按下 btnCPlayer (btnCPlayer_Click)。
   • btnCPlayer 将播放器插入列表中。
   • btnCPlayer 关闭 Form2。

至此，您已经完成了操作流程，但 Form1 从未收到添加新 Player 的提示。也没有任何代码可以使列表重新加载，除非 Form1 启动（Form_Load 事件/方法仅在第一次加载时调用）。

您需要（选择一个）：

• 将 Form2 作为“模态”窗口启动，这意味着它会阻止 Form1 执行任何操作，直到其关闭。这将允许您在 Form2 关闭后检查其内的更新。
• Form2 通知 Form1 它已添加玩家（“事件”）的一种方式。
• 设置一些东西来刷新列表（可能使用“计时器”）。

模态方法是最简单的。