- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [原创]树的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10378)
-- 发布时间：2011/6/2 13:49:00
-- [原创]树的问题
请问:
如果树和table二个控件在一个界面上，点击树中一个节点（如“华东\\上海\\西藏中路”），要让table控件上表的光标移到相应位置， 这个代码怎么写？
(注意，我的表是单字段树，如“华东\\上海\\西藏中路”是在一个字段上的。)
-- 发布时间：2011/6/2 14:12:00
--
我不理解的是,你点击树时,鼠标的位置在哪儿?不是在树上吗?有鼠标不就是光标的位置吗,怎么可能在表内呢?不理解.
-- 发布时间：2011/6/2 14:29:00
--
树是为了找到表中相应数据.我想修改树节点的名称,然后存到表中相应的行.
这个软件的树跟表是脱离的,你插入了树节点并保存到表后,你会发现插入的节点把表中的树往下挤了一位,后面的树不在原来的位置了.
-- 发布时间：2011/6/2 14:39:00
--
你发个东西上来看看呢
-- 发布时间：2011/6/2 14:56:00
--
很简单啊，既然可以用来筛选，就可以用来定位：
http://help.foxtable.com/topics/0917.htm
-- 发布时间：2011/6/2 21:49:00
--
定位的语句怎么写啊？查不到啊，帮助里没有
此主题相关图片如下：capture2.bmp
-- 发布时间：2011/6/2 21:56:00
--
http://help.foxtable.com/topics/0553.htm
-- 发布时间：2011/6/2 22:42:00
--
树的nodemouseclike事件写如下代码，但出错，请帮忙看一下:
Dim Value() As String
Value = e.Node.FullPath.Split("\\")
With CurrentTable
Dim r As Integer
r = .FindRow("[树] Like " & Value(0) & "\\" & Value(1) & "\\" & Value(2) , .Position + 1, True ) \'从当前行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行.
End If
End With
-- 发布时间：2011/6/3 7:26:00
--
With CurrentTable
Dim r As Integer
r = .FindRow("[树] = \'" & e.Node.FullPath & "\'", 0，True ) \'从当前行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行.
End If
End With
-- 发布时间：2011/6/3 8:48:00
--
解决了.另外,
1.树的左边加个图标可以吗?(如下图)
2.我在给树重命名的时候,同时要修改这个行的其他内容,要怎么做呢?
此主题相关图片如下：操作员授权.bmp