主题：选中目录树节点，选中当前行

请教大大，目录树是根据表生成的，目录树的选中节点的代码是Tables("部门信息").Position = Tables("部门信息").FindRow(e.Node.DataRow)

貌似如图这个代码只是定位作用，

我想让这个代码改成  选中当前结点的时候同时选中表格的当前行，而不仅仅是定位

这样我点删除按钮的时候才能删掉表中的当前行，请教怎么改选中节点的代码

此主题相关图片如下：qq图片20150922220222.png

直接用代码确实可以但是没有提示，本身自己是用弹窗来提示的，要不然直接删也不太好，求改进方法，用弹窗的话貌似就不行了，点删除就没反映了，如果是在表格里可以直接删掉，但是在目录树界面点删除没反应
此主题相关图片如下：q`8lival%nhb9obkhc40.png

用弹窗在这个界面点是没反应，在表格界面点是可以删掉当前行，

目录树选中节点的代码

Tables("部门信息").Position = Tables("部门信息").FindRow(e.Node.DataRow)

 

删除按钮代码

If Tables("部门信息").current IsNot Nothing Then
  Forms("删除当前行提示窗口").show
end if

 

 

删除当前行提示窗口的，是按钮的代码

If CurrentTable.current IsNot Nothing

  CurrentTable.Current.Delete()
  e.Form.close

End If

谢谢大大，另外一个问题就是，我点是之后，002这个行都删掉了，但是目录树没删掉，我现在的做法是点击保存按钮重新根据SAVE后的新表生成目录树，有没有方法在点击删除按钮的是之后，直接刷新左边的目录树，让目录树的002消失呢，
此主题相关图片如下：q`8lival%nhb9obkhc40.png

那样的话我那个删除当前行提示窗口就不能当通用窗口用了。。。

谢谢大大不过大大这个方法，点了删除，还没点是的时候，002就已经删掉了，不知道有没有更好的方法。。。。要是没有更好的方法的话，我就用之前那个在是里面放代码吧，另外messagebox.show的外形不知道是否可以变更，

谢谢大大， 搞定了

这个删除直接点表的时候能删掉行但是会出现这个BUG，
此主题相关图片如下：o)0}0%({1_3y`bjk%woz(ig.png

If Tables("部门信息").current IsNot Nothing Then
    Forms("删除当前行提示窗口").show
   
    If vars("结果") = "是" Then
       
        Tables("部门信息").Current.Delete()
        Forms("部门信息").Controls("TreeView1").SelectedNode.Delete
        
    Else         

        DataTables("部门信息").rejectchanges       
    End If
End If