以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]树的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10378)

--  作者:aloby
--  发布时间:2011/6/2 13:49:00
--  [原创]树的问题

请问:

如果树和table二个控件在一个界面上,点击树中一个节点(如“华东\\上海\\西藏中路”),要让table控件上表的光标移到相应位置, 这个代码怎么写?

(注意,我的表是单字段树,如“华东\\上海\\西藏中路”是在一个字段上的。)


--  作者:blackzhu
--  发布时间:2011/6/2 14:12:00
--  
我不理解的是,你点击树时,鼠标的位置在哪儿?不是在树上吗?有鼠标不就是光标的位置吗,怎么可能在表内呢?不理解.
--  作者:aloby
--  发布时间:2011/6/2 14:29:00
--  

树是为了找到表中相应数据.我想修改树节点的名称,然后存到表中相应的行.

这个软件的树跟表是脱离的,你插入了树节点并保存到表后,你会发现插入的节点把表中的树往下挤了一位,后面的树不在原来的位置了.


--  作者:blackzhu
--  发布时间:2011/6/2 14:39:00
--  
你发个东西上来看看呢
--  作者:狐狸爸爸
--  发布时间:2011/6/2 14:56:00
--  

很简单啊,既然可以用来筛选,就可以用来定位:

http://help.foxtable.com/topics/0917.htm

 


--  作者:aloby
--  发布时间:2011/6/2 21:49:00
--  

定位的语句怎么写啊?查不到啊,帮助里没有


图片点击可在新窗口打开查看此主题相关图片如下:capture2.bmp
图片点击可在新窗口打开查看

[此贴子已经被作者于2011-6-2 21:51:35编辑过]

--  作者:mr725
--  发布时间:2011/6/2 21:56:00
--  
http://help.foxtable.com/topics/0553.htm
--  作者:aloby
--  发布时间: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


--  作者:aloby
--  发布时间:2011/6/3 8:48:00
--  

解决了.另外,

1.树的左边加个图标可以吗?(如下图)

2.我在给树重命名的时候,同时要修改这个行的其他内容,要怎么做呢?


图片点击可在新窗口打开查看此主题相关图片如下:操作员授权.bmp
图片点击可在新窗口打开查看