你要重新加载某一行数据?
Dim fdr As DataRow = t.DataTable.Find("_Identify = " & r("_Identify"))
If fdr IsNot Nothing Then
fdr.Load
End If