- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]lsy老师在吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47836)
-- 发布时间：2014/3/18 13:53:00
-- [求助]lsy老师在吗？
lsy老师，上次你帮我改的多款目录树共用代码_基层司法20140313，以市级操作员身份登录操作提示错误，以县级操作员登录正常。麻烦帮看下，谢谢！
此主题相关图片如下：９.jpg
-- 发布时间：2014/3/18 14:02:00
--
年龄是数值，其他都是字符，参照Case Else上面的代码，加上年龄的判断，如果是年龄，就不带单引号。
-- 发布时间：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
-- 发布时间：2014/3/18 14:25:00
--
好的，改下看。谢谢！
-- 发布时间：2014/3/18 20:43: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
-- 发布时间：2014/3/19 8:31:00
--
楼主没有真正理解代码，改了一个地方，另一个地方就不知道相应的改变。
e.Form.Controls("筛选模式").Text = s.Replace("年龄|","").Replace("|年龄","") ‘加一句，才会与目录树的节点对应。
tv.BuildTree(dt,s.Replace("年龄|","").Replace("|年龄","") ,"","序号")