Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共15 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[原创]树的问题

1楼
aloby 发表于:2011/6/2 13:49:00

请问:

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

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

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

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

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

4楼
blackzhu 发表于:2011/6/2 14:39:00
你发个东西上来看看呢
5楼
狐狸爸爸 发表于:2011/6/2 14:56:00

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

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

 

6楼
aloby 发表于:2011/6/2 21:49:00

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


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

[此贴子已经被作者于2011-6-2 21:51:35编辑过]
7楼
mr725 发表于:2011/6/2 21:56:00
http://help.foxtable.com/topics/0553.htm
8楼
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

9楼
狐狸爸爸 发表于: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

10楼
aloby 发表于:2011/6/3 8:48:00

解决了.另外,

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

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


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

共15 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03809 s, 2 queries.