如何在数据集中查找一行记录，并将BindingContext中的当前记录也更新到这一行？

例：
Public Function getpos(ByVal tb As Data.DataTable, ByVal id As Integer, ByVal pk As String) As Integer
Dim findrow As New Data.DataView(tb, "", pk, DataViewRowState.CurrentRows)
Dim pos As Integer = findrow.Find(id)
Return pos
End Function

BindingContext(Deviceds1, "device").Position = getpos(Deviceds1.Tables(0), Me.TreeView1.SelectedNode.Tag, "id")