刷新数据网格视图

Question

这看起来很容易解决，但我想不通。我正在尝试在子表单（NewTournament）上设置按钮单击事件，将记录添加到数据库，然后通知数据网格自动列出来自同一数据库的记录（网格在 HomeForm 上列出）。

所以我能够更新数据库并调用一个新窗口。但我无法让它刷新该数据网格的任何内容。我知道我应该清除数据网格，获取更改，然后重新填充网格。但是每次我这样做时，代码都不会更新。此外，我可以很好地看到正在添加记录。

Private Sub CreateTournament_Click(sender As System.Object, e As System.EventArgs) Handles CreateTournament.Click
    ' Check the form for errors, if none exist.
    ' Create the tournament in the database, add the values where needed. Close the form when done.

    Dim cn As OleDbConnection
    Dim cmd, cmd1 As OleDbCommand
    Dim icount As Integer
    Dim str, str1 As String

    Try
        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\Paul Williams III\Documents\Visual Studio 2010\Projects\Everything OP Client\Everything OP Client\Master.mdb'")
        cn.Open()
        str = "insert into Tournaments (SanctioningID,TournamentName,TournamentVenue,TournamentDateTime,TournamentFirstTable,Game,Format,OrganizerID) values(" _
            & CInt(SanctioningIDTxt.Text) & ",'" & Trim(TournamentNameTxt.Text) & "','" & _
            "1" & "','" & EventDateTimePck.Value & "','" & TableFirstNumberNo.Value & "','" & GameList.SelectedIndex & "','" & FormatList.SelectedIndex & "','" & Convert.ToInt32(ToIDTxt.Text) & "')"

        'string stores the command and CInt is used to convert number to string
        cmd = New OleDbCommand(str, cn)
        str1 = "select @@Identity"
        icount = cmd.ExecuteNonQuery
        cmd1 = New OleDbCommand(str1, cn)
        Counter = CInt(cmd1.ExecuteScalar)
        MessageBox.Show(Counter & " was the last inserted id")
        'displays number of records inserted

        HomeForm.MasterDataSet.Clear()
        HomeForm.MasterDataSet.GetChanges()
        HomeForm.TournamentsTableAdapter.Fill(HomeForm.MasterDataSet.Tournaments)
        HomeForm.DataGridView1.Refresh()

    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    End Try

    Me.Close()

    Dim n As New TournamentWindow
    n.TournID = Counter
    n.Show(HomeForm)

End Sub

Answer 1

最好的方法是将记录添加到 DataGrid 的 DataSource 中。 DataGrid 将自动更新。在这种情况下，它可能有点像

HomeForm.MasterDataSet.Tournaments.AddTournamentsRow( CInt(SanctioningIDTxt.Text) , _
                           Trim(TournamentNameTxt.Text) ,  _
                           "1" , _
                           EventDateTimePck.Value, _
                           TableFirstNumberNo.Value,  _ 
                           GameList.SelectedIndex, _
                           FormatList.SelectedIndex, _
                           Convert.ToInt32(ToIDTxt.Text) )

顺便说一句，您可能需要考虑为您的 Insert 语句使用参数化查询

Answer 2

这是我的回答，希望你喜欢。在我的项目中，我有一个交换机，在该交换机中，它包含我的数据的数据网格视图。之前它只在用户使用查询时自行刷新，它会自行刷新。我教了它如何做不同的事情。所以我使用了这种技术的定时器刷新效果。它是如何工作的我放置了一个计时器，并在计时器中从表单加载中复制并粘贴此代码。

Me.ADDRESS_TICKETTableAdapter.Fill(Me.Database1DataSet.ADDRESS_TICKET)

在计时器的设置中，我打开它，每 9 秒重新加载一次数据，您可以更改它，如果您愿意，它每 1 秒重新加载一次，这取决于它进入了多少记录。我希望这个答案对您有所帮助反正。它对我有用。