Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树


  共有19386人关注过本帖树形打印复制链接

主题：目录树
帅哥哟，离线，有人找我吗？
lihe60
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		目录树  发帖心情 Post By：2009/6/10 10:20:00 [只看该作者]

"籍贯"表窗口的命令按钮原来可以用,现在不能用了,请高手指点.

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2009/6/10 10:47:00 [只看该作者]

你要干嘛,起什么作用,看不懂

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/6/10 10:57:00 [只看该作者]

我也看不懂，你得告诉大家，你的目的是什么。

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2009/6/10 11:30:00 [只看该作者]

"籍贯"表窗口的命令按钮.选择目录树中的一级节点,不会增加省份名称.目的是会增加省份名称.
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/6/10 11:34:00 [只看该作者]

搞得这么复杂干啥，直接在表中增加。
目录树本来就是根据表生成的。

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2009/6/10 12:05:00 [只看该作者]

籍贯表窗口代码什么地方有问题?

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2009/6/10 12:32:00 [只看该作者]

按一下按钮,不能增加省份.
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2009/6/10 14:15:00 [只看该作者]

谁能伸出援助之手.

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/6/10 14:45:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目87.table
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6887 积分：43621 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2009/6/10 15:11:00 [只看该作者]

dim trv as winform.treeview=e.form.controls("tv1")
dim nd as winform.treenode=trv.selectednode
dim pnd as winform.treenode=trv.selectednode.ParentNode
dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode
Dim txt As WinForm.TextBox = e.Form.Controls("TB1")
dim dr as datarow
Dim Value As Integer=trv.selectednode.Level
Select Case Value
    Case 0
       dr=datatables("jg").find("sheng = '" & txt.value & "'")
       if dr is nothing then
           dr=datatables("jg").addnew()
           dr("sheng") = txt.value
           trv.nodes.add(txt.value,txt.value)
       end if
   Case 1
       if nd is nothing then
           return
       end if
       dr=datatables("jg").find("xian= '" & nd.text & "' and xian= '" & txt.value & "'")
       if dr is nothing then
           dr=datatables("jg").addnew()
           dr("sheng")=pnd.text
           dr("xian")=txt.value
           nd.nodes.add(txt.value,txt.value)
       end if
    case 2
     if nd is nothing then
           return
       end if
       dr=datatables("jg").find("xiang= '" & nd.text & "' and xiang= '" & txt.value & "'")
       if dr is nothing then
           dr=datatables("jg").addnew()
           dr("sheng")=ppnd.text
           dr("xian")=pnd.text
           dr("xiang")=txt.value
           nd.nodes.add(txt.value,txt.value)
       end if
End Select




上述代码如果不删除"dim ppnd as winform.treenode=trv.selectednode.ParentNode.ParentNode"代码,则不同增加省份,是什么原因?

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询