以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114684) |
-- 作者:q2520 -- 发布时间:2018/2/13 11:02:00 -- [求助] 动态目录树,怎么添加排序的代码 |
-- 作者:有点甜 -- 发布时间:2018/2/13 11:06:00 -- 设置 TreeSort 属性
http://www.foxtable.com/webhelp/scr/2031.htm
|
-- 作者:q2520 -- 发布时间:2018/2/13 11:12:00 -- 动态目录树已经有了 |
-- 作者:有点甜 -- 发布时间:2018/2/13 11:14:00 -- 贴出你写的动态目录树的代码。设置treeSort属性,不就好了? [此贴子已经被作者于2018/2/13 11:13:57编辑过]
|
-- 作者:q2520 -- 发布时间:2018/2/13 11:24:00 -- 没仔细看 行了 还有出来那个下拉菜单能直接 用鼠标滚轴 不用点下拉条吗 还一个问题 所有表牵扯姓名的地方 能都调用我目录表里的姓名,手动输入(如果和目录表姓名有错别字不让输入)
|
-- 作者:有点甜 -- 发布时间: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 |
-- 作者:q2520 -- 发布时间:2018/2/13 11:57:00 -- 第二个问题已经解决 |
-- 作者:q2520 -- 发布时间:2018/2/21 13:18:00 -- [求助] 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 这个代码的基础上 怎么样能够在输入错误的单元格生成一个有颜色的边框 这样方便知道是哪个错了 |
-- 作者:有点甜 -- 发布时间:2018/2/21 17:21:00 -- 回复8楼,你不是一行一行的输入数据的么?你输入之后,就会提示的了,不就是你正在输入的那一行?
请具体说明你使用的场景,导入还是怎样的?要把重复的显示出来? |
-- 作者:q2520 -- 发布时间:2018/2/21 20:37:00 -- 有的时候名字会复制进来很多 有些错别字 那个代码是有提示了 但是一次复制太多 就不知道是谁的名错了 最后有错的单元格都是空的 我想是在那个代码的基础上能不能 在标注出来 哪些名字是错的 那样方便修改 提示错误 然后添加标注 删除操作我知道是这个 e.cancel = true 我想过从目录表里面多选人名最好 不会错 但是我不会弄
[此贴子已经被作者于2018/2/21 20:44:13编辑过]
|