Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]lsy老师在吗？


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

主题：[求助]lsy老师在吗？
帅哥哟，离线，有人找我吗？
花开的声音
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		[求助]lsy老师在吗？  发帖心情 Post By：2014/3/18 13:53:00 [只看该作者]

lsy老师，上次你帮我改的多款目录树共用代码_基层司法20140313，以市级操作员身份登录操作提示错误，以县级操作员登录正常。麻烦帮看下，谢谢！

错误提示：
图片点击可在新窗口打开查看此主题相关图片如下：９.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/18 14:02:00 [只看该作者]

年龄是数值，其他都是字符，参照Case Else上面的代码，加上年龄的判断，如果是年龄，就不带单引号。
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/18 14:10:00 [只看该作者]

你的目录树，年龄筛选比较复杂，可以在年龄不是开头的复选组合中，去掉年龄，简单化。

TextChanged

If s.StartsWith("年龄") Then
    e.Form.Controls("筛选模式").Text = "年龄|姓名"
    tv.BuildTree(dt,"年龄|姓名")
ElseIf s.StartsWith("性别") Then
    e.Form.Controls("筛选模式").Text = "性别|姓名"
    tv.BuildTree(dt,"性别|姓名")
Else
    tv.BuildTree(dt,s.Replace("年龄|","").Replace("|年龄","") ,"","序号")
End If

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


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/3/18 14:25:00 [只看该作者]

好的，改下看。谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/3/18 20:43:00 [只看该作者]

以下是引用lsy在2014-3-18 14:10:00的发言：

你的目录树，年龄筛选比较复杂，可以在年龄不是开头的复选组合中，去掉年龄，简单化。

TextChanged

If s.StartsWith("年龄") Then
    e.Form.Controls("筛选模式").Text = "年龄|姓名"
    tv.BuildTree(dt,"年龄|姓名")
ElseIf s.StartsWith("性别") Then
    e.Form.Controls("筛选模式").Text = "性别|姓名"
    tv.BuildTree(dt,"性别|姓名")
Else
    tv.BuildTree(dt,s.Replace("年龄|","").Replace("|年龄","") ,"","序号")
End If

 



按以上修改了事件代码，运行还是错误呢。如图所示：
图片点击可在新窗口打开查看此主题相关图片如下：10.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/19 8:31:00 [只看该作者]

楼主没有真正理解代码，改了一个地方，另一个地方就不知道相应的改变。

 

e.Form.Controls("筛选模式").Text = s.Replace("年龄|","").Replace("|年龄","") ‘加一句，才会与目录树的节点对应。
tv.BuildTree(dt,s.Replace("年龄|","").Replace("|年龄","") ,"","序号")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询