datatable.Rows.Findは、私がDatagridView_CellEndEditイベント</p> <p>問題の下にこのコードを入れている

Question

 Dim datatable_default_view As DataTable = _datatable.DefaultView.ToTable 
     Dim servicenumber As String = datatable_default_view.Rows.Item(e.RowIndex)("Service Number").ToString 
'gets the service number of the selected row 

     If _datatable.PrimaryKey.Length = 0 Then 
      Dim keys(0) As DataColumn 
      keys(0) = _datatable.Columns("Service Number") 
      _datatable.PrimaryKey = keys 
     End If 

     Dim datarow_edited As DataRow = _datatable.Rows.Find(servicenumber) 

     Try 
      MsgBox("Record" + datarow_edited("service number") + " was edited") 
     Catch ex As Exception 
      MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error") 
     End Try 

動作しません：
セル内の終了時に「data_row編集した」変数は初期化されません。 キーボードを使用してモードを編集します（例：下向き矢印を押す）。 マウスを使用すると、正常に動作します。どうしてこれなの ？それは私がVB.net 2008を使用している既知のバグですか？助けてください

私はサンプルデータhereとサンプルプロジェクトをアップロードしました。可能であれば、それをチェックしてください。

Answer 1

VS 2010のサンプルソリューションを試してみましたが、意図したとおりに動作しています。矢印キーで行を切り替えるときも、DataRowが正しく初期化されます。

編集：

あなたは今、ごめんなさい。

舞台裏でいくつかの非同期の問題のように見えます。

はたぶん、あなたのための回避策

Imports System.Data.OleDb 
Public Class Form1 
    Private _datatable As DataTable 
    Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Members Database.mdb;Persist Security Info=False" 


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Dim connection As New OleDbConnection(conn) 
     Dim adapter As OleDbDataAdapter 


     Dim _branchname As String = "A BAUR" 
     Dim cmd As String = "Select [Service Number] ,[Name], [Gender], [Subscription] from " + _branchname.Insert(0, "[") + "]" 
     adapter = New OleDbDataAdapter(cmd, conn) 
     _datatable = New DataTable 
     adapter.Fill(_datatable) 


     If _datatable.PrimaryKey.Length = 0 Then 

      Dim keys(0) As DataColumn 
      keys(0) = _datatable.Columns("Service Number") 
      _datatable.PrimaryKey = keys 
     End If 


     AddHandler _datatable.RowChanged, AddressOf _datatable_RowChanged 

     DataGridView1.DataSource = _datatable 

    End Sub 


    Private Sub _datatable_RowChanged(sender As Object, e As System.Data.DataRowChangeEventArgs) 

     Dim servicenumber = e.Row("Service Number") 

     Dim datarow_edited As DataRow = _datatable.Rows.Find(servicenumber) 

     Try 
      MsgBox("Record" + datarow_edited("service number") + " was edited") 
     Catch ex As Exception 
      MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error") 
     End Try 
    End Sub 

End Class 

Answer 2

Dim servicenumber As String = _datatable.Rows(e.RowIndex)("Service Number").ToString()