以前に保存したレコードを変更することはできません

Question

アカウントに問題がある場合（たとえば、忘れたパスワード）、ユーザーにアカウントの詳細を編集させようとしています。 以前のフォームでは、ユーザーは確認済みの電子メールを入力し、変数はレコード番号を示すために使用され、テキストボックスにレコードを表示するために使用されます。 ユーザーがデータを編集して保存をクリックすると、すべてが機能します。しかし、私はログインフォームに行くと、私は新しい資格情報でログインできません。

Design

Private Sub ChangeUserDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    'TODO: This line of code loads data into the 'DataSet1.Users' table. You can move, or remove it, as needed. 
    Me.UsersTableAdapter.Fill(Me.DataSet1.Users) 
    AlterUsernameTB.Text = UsersBindingSource(validatedRecord)("Username").ToString 
    AlterPasswordTB.Text = UsersBindingSource(validatedRecord)("Password").ToString 
    AlterEmailTB.Text = UsersBindingSource(validatedRecord)("Email").ToString 
End Sub 

Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click 
    'Exception class will detect errors if any. 
    Try 
     Select Case MsgBox("Are you sure you want to alter your account details?", MsgBoxStyle.YesNo, "Are You Sure") 
      Case MsgBoxResult.Yes 
       If AlterUsernameTB.Text <> Nothing Then 
        If AlterPasswordTB.Text <> Nothing Then 
         If AlterReTypePasswordTB.Text <> Nothing Then 
          If AlterEmailTB.Text <> Nothing Then 
           If AlterReTypePasswordTB.Text = AlterPasswordTB.Text Then 
            'Exception class will detect errors if any. 
            Me.Validate() 
            Me.UsersBindingSource.EndEdit() 
            Me.TableAdapterManager.UpdateAll(Me.DataSet1) 
            MessageBox.Show("Your account has been altered. Please click on Back to Login.") 
           Else 
            MessageBox.Show("Passwords do not match!") 
           End If 
          Else 
           MessageBox.Show("Email textbox is empty!") 
          End If 
         Else 
          MessageBox.Show("Re-type password textbox is empty!") 
         End If 
        Else 
         MessageBox.Show("Password textbox is empty!") 
        End If 
       Else 
        MessageBox.Show("Username textbox is empty!") 
       End If 
      Case MsgBoxResult.No 
       'If 'No' is clicked nothing will happen. 
     End Select 
    Catch ex As Exception 
     MessageBox.Show(ex.Message) 
    End Try 
End Sub 

私が間違って何をしているのですか？ ご協力いただければ幸いです。 （行うには完全に間違ってのものだった）

乾杯

Answer 1

代わりのテーブルにテキストボックスを結合し、それらを保存しようと、私はだけでなく、保存する前であれば、最後の文の中に以下のコードを挿入します。できます！

DataSet1.Users(validatedRecord).Username = AlterUsernameTB.Text 
DataSet1.Users(validatedRecord).Password = AlterPasswordTB.Text 
DataSet1.Users(validatedRecord).Email = AlterEmailTB.Text