主题：[求助]带查找功能的下拉目录树，增加一个 确定按钮 的代码怎么写？谢谢

打开窗口之前赋值

vars("表") = Tables("客户")

--------------------

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = vars("表").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

如果是下拉窗口，这样写

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then '获取当前节点位置.
    Dim tr As Row = e.Form.DropTable.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

http://www.foxtable.com/help/topics/2893.htm

写错

Dim tr As Row = e.Form.DropTable.Current