- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 选中目录树节点，选中当前行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74931)
-- 发布时间：2015/9/22 22:06:00
-- 选中目录树节点，选中当前行
请教大大，目录树是根据表生成的，目录树的选中节点的代码是Tables("部门信息").Position = Tables("部门信息").FindRow(e.Node.DataRow)
貌似如图这个代码只是定位作用，
我想让这个代码改成 选中当前结点的时候同时选中表格的当前行，而不仅仅是定位
这样我点删除按钮的时候才能删掉表中的当前行，请教怎么改选中节点的代码
此主题相关图片如下：qq图片20150922220222.png
-- 发布时间：2015/9/22 22:08:00
--
定位就是选中的意思，不用改代码。
删除的代码直接 Tables("部门信息").Current.Delete
-- 发布时间：2015/9/22 22:27:00
-- 如图
直接用代码确实可以但是没有提示，本身自己是用弹窗来提示的，要不然直接删也不太好，求改进方法，用弹窗的话貌似就不行了，点删除就没反映了，如果是在表格里可以直接删掉，但是在目录树界面点删除没反应
此主题相关图片如下：q`8lival%nhb9obkhc40.png
-- 发布时间：2015/9/22 22:28:00
--
用弹窗在这个界面点是没反应，在表格界面点是可以删掉当前行，
-- 发布时间：2015/9/22 22:28:00
--
贴出原来写的代码。
-- 发布时间：2015/9/22 22:34:00
--
目录树选中节点的代码
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
-- 发布时间：2015/9/22 22:37:00
--
删除按钮代码
If Tables("部门信息").current IsNot Nothing Then
vars("当前表") = Tables("部门信息")
Forms("删除当前行提示窗口").show
end if
删除当前行提示窗口的，是按钮的代码
vars("当前表").Current.Delete()
e.Form.close
-- 发布时间：2015/9/22 22:52:00
--
谢谢大大，另外一个问题就是，我点是之后，002这个行都删掉了，但是目录树没删掉，我现在的做法是点击保存按钮重新根据SAVE后的新表生成目录树，有没有方法在点击删除按钮的是之后，直接刷新左边的目录树，让目录树的002消失呢，
此主题相关图片如下：q`8lival%nhb9obkhc40.png
-- 发布时间：2015/9/22 23:11:00
--
删除当前行提示窗口的，是按钮的代码
Tables("部门信息").Current.Delete()
Forms("窗口1").Controls("TreeVew1").SelectedNode.Delete
Tables("部门信息").Save
e.Form.close
-- 发布时间：2015/9/22 23:13:00
--
那样的话我那个删除当前行提示窗口就不能当通用窗口用了。。。