Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/13 11:06:00 [显示全部帖子]

设置 TreeSort 属性

 

http://www.foxtable.com/webhelp/scr/2031.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/13 11:14:00 [显示全部帖子]

贴出你写的动态目录树的代码。设置treeSort属性，不就好了？
[此贴子已经被作者于2018/2/13 11:13:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/13 11:47:00 [显示全部帖子]

1、本来不就是支持滚轮的吗？你要点一下目录树节点，才能滚动；

 

如果想灵活控制，你就需要用下拉窗口了，如

 

http://www.foxtable.com/webhelp/scr/2115.htm

 

http://www.foxtable.com/webhelp/scr/2893.htm

 

2、datacolchanging或validateEdit事件，查找判断，如

 

If e.datacol.name = "姓名" Then

    Dim fdr As Datarow = DataTables("某表").Find("姓名 = '" & e.newValue & "'")

    If fdr is Nothing Then

        msgbox("姓名不准确")

        e.cancel = true

    End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/21 17:21:00 [显示全部帖子]

回复8楼，你不是一行一行的输入数据的么？你输入之后，就会提示的了，不就是你正在输入的那一行？

 

请具体说明你使用的场景，导入还是怎样的？要把重复的显示出来？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/21 20:50:00 [显示全部帖子]

参考 http://www.foxtable.com/webhelp/scr/2682.htm

 

改成

 

msgbox("姓名不准确")

e.DataRow.SetError("姓名", "重复")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/21 21:10:00 [显示全部帖子]

以下是引用q2520在2018/2/21 21:01:00的发言：
有标注了  但是把名字修改成正确的以后  标注也不会消失  只有重新加载项目才能消失   怎么处理

 

 

If e.DataCol.name = "姓名" Then

    Dim fdr As DataRow = DataTables("某表").Find("姓名 = '" & e.newValue & "'")

    If fdr Is Nothing Then

        msgbox("姓名不准确")

        e.DataRow.SetError("姓名", "重复")

    Else

        e.DataRow.SetError("姓名", "")

    End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/1 10:24:00 [显示全部帖子]

以下是引用q2520在2018/3/1 10:07:00的发言：
错误的名字   当时有标注   重新打开项目以后   标注都没了 怎么办                

 

这种情况，你就需要添加一个辅助列【提示】，把需要提示的文字赋值过去。

 

然后再在drawcell事件，根据辅助列【提示】，编写代码，如

 

If e.row("提示") > "" AndAlso e.col.name = "姓名" Then

    e.style = "样式1"

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/1 11:23:00 [显示全部帖子]

datacolchanged事件

 

If e.DataCol.name = "姓名" Then

    Dim fdr As DataRow = DataTables("某表").Find("姓名 = '" & e.newValue & "'")

    If fdr Is Nothing Then

        msgbox("姓名不准确")

        e.DataRow.SetError("姓名", "重复")

        e.datarow("提示") = "姓名不准确"

    Else

        e.DataRow.SetError("姓名", "")

        e.datarow("提示") = nothing

    End If

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