Dim tx As String = Forms("我的人际库").controls("textbox1").text 永远显示的似“张三”,因为你没有点击其他节点。
可能你的Forms("我的人际库").用错了吧是不是 Forms("搜索记录"),这样的话,你需要遍历所有节点才行