数据只在程序启动后更新到数据库

首先感谢这些论坛上的所有帮助，我发现它非常有用！不幸的是，我有一个问题，我无法弄清楚。我在vb.net上编写了一个程序，它使用LogIn屏幕打开一个主页，您可以在其中创建消息供其他人查看。数据只在程序启动后更新到数据库

我可以创建新消息，但它们不会显示在我的datagridview中，除非我关闭该程序并重新打开它。然后他们在场。

Public Class frmMessage 
Dim newMsgRow As Prototype1DataSet.MessagesRow 
Dim editMsgRow As Prototype1DataSet.MessagesRow 


Private Sub MessagesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
    Me.Validate() 
    Me.MessagesBindingSource.EndEdit() 
    Me.TableAdapterManager.UpdateAll(Me.Prototype1DataSet) 
End Sub 

Private Sub MessageForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    'TODO: This line of code loads data into the Prototype1DataSet.Messages table. You can move, or remove it, as needed.' 
    Me.MessagesTableAdapter.Fill(Me.Prototype1DataSet.Messages) 

End Sub 


Private Sub btn_SaveMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SaveMsg.Click 
    'Check if inputs are valid and then saves new message and returns to Home Page' 
    If CheckDataInputs() Then 
     If frmHomePage.editMsgFlag = False Then 
      SaveNewMessage() 
     ElseIf frmHomePage.editMsgFlag = True Then 
      EditMessage() 
     End If 

     MessageBox.Show("Message saved", Me.Text, MessageBoxButtons.OK) 
     Me.Hide() 
     frmHomePage.Show() 

    End If 
End Sub 


Private Function CheckDataInputs() As Boolean 
    'Check if any inputs are left empty' 
    Dim InputsCheck As Boolean = True 
    If txt_MsgFrom.Text = "" Then 
     MessageBox.Show("Please state whom the message is from", Me.Text, MessageBoxButtons.OK) 
     Me.txt_MsgFrom.Focus() 
     InputsCheck = False 
    ElseIf txt_MsgTo.Text = "" Then 
     MessageBox.Show("Please enter message recipient", Me.Text, MessageBoxButtons.OK) 
     Me.txt_MsgTo.Focus() 
     InputsCheck = False 
    ElseIf txt_Message.Text = "" Then 
     MessageBox.Show("Please enter a message", Me.Text, MessageBoxButtons.OK) 
     Me.txt_Message.Focus() 
     InputsCheck = False 
    ElseIf txt_MsgStatus.Text = "" Then 
     MessageBox.Show("Please select message status", Me.Text, MessageBoxButtons.OK) 
     Me.txt_Message.Focus() 
     InputsCheck = False 
    End If 
    Return InputsCheck 
End Function 


Private Sub SaveNewMessage() 
    'Saves new message into Messages table' 
    newMsgRow = Prototype1DataSet.Messages.NewMessagesRow() 

    newMsgRow.From = txt_MsgFrom.Text 
    newMsgRow._To = txt_MsgTo.Text 
    newMsgRow.Message = txt_Message.Text 
    newMsgRow.Status = txt_MsgStatus.Text 
    newMsgRow._Date = date_Msg.Text 

    Prototype1DataSet.Messages.AddMessagesRow(newMsgRow) 

    MessagesTableAdapter.Update(Prototype1DataSet) 
    Prototype1DataSet.Messages.AcceptChanges() 
End Sub 

End Class

来源

2013-06-24 user2517766

感谢matzone，我在AcceptChanges（）后面添加了DGV.DS = Dataset.Table，它工作正常，但现在它在我的DGV中创建了一个双输入。当我创建另一条消息时，前面的double被删除，但新条目有一个double ... – user2517766

它通常在DataGridView的数据绑定表时发生..

如果你已经更新表或在表格中的一些变化，那么你必须做

DataGridView1.DataSource = MyTable

所以该表将被重新加载在DGV中。

来源

2013-06-24 23:38:07 matzone

数据只在程序启动后更新到数据库

回答

相关问题