Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") If trv.SelectedNode IsNot Nothing Then '获取当前节点位置. Dim tr As Row = Tables("客户").Current Dim dr As DataRow = trv.SelectedNode.DataRow '获取生成此节点的DataRow tr("省市") = dr("省市") tr("县市") = dr("县市") tr("区号") = dr("区号") tr("邮编") = dr("邮编") e.Form.DropDownBox.Value = tr("县市") e.Form.DropDownBox.CloseDropdown() End If