Dim tr As WinForm.TreeView tr = e.Form.Controls("TreeView1") tr.Select() tr.BeginEdit()
Dim nd As WinForm.TreeNode = tr.SelectedNode Dim id As Integer = nd.index
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nds As List(of Winform.TreeNode) = trv.AllNodes DataTables("商品").DataRows(id)("条码") = nds(id).fullpath