这个比较麻烦,要遍历。CurrentChanged事件
Dim trv As WinForm.TreeView = forms("窗口1").Controls("TreeView1")For Each nd As WinForm.TreeNode In trv.AllNodes If nd.DataRow("_Identify") = e.Table.Current("_Identify") Then trv.SelectedNode = nd Exit For End IfNext