datatable.Rows.Find不起作用

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 

我已經把這個代碼DatagridView_CellEndEdit事件

的問題下：
離開小區時，「data_row編輯的」變量不被初始化編輯模式使用鍵盤（即：按下下/上箭頭）。 如果我使用鼠標，它按預期工作。爲什麼是這樣 ？這是一個已知的錯誤，我正在使用VB.net 2008.請幫助

我上傳了一個示例項目示例項目here。如果可能，請檢查它。

Answer 1

剛剛在VS 2010上試用過您的示例解決方案，它的工作方式如預期。使用箭頭鍵切換行時，DataRow也會正確初始化。

編輯：

你現在得到，抱歉。

看起來像幕後的一些異步問題。

也許處理數據表本身的RowChanged事件可能是你

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()