比如
Dim trv As WinForm.TreeView = e.form.controls("treeview1")If trv.SelectedNode IsNot Nothing Then
Dim nr As Row = Tables("表A").Addnew nr("部门") = trv.SelectedNode.text forms("").showEnd If