Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 重复值显示颜色


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

主题：[求助] 重复值显示颜色
帅哥哟，离线，有人找我吗？
sanny
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		[求助] 重复值显示颜色  发帖心情 Post By：2020/6/6 8:51:00 [只看该作者]

请教一下，表中第一列中有许多相同的内容，如何在表属性的drawcell中表示，把相同的记录都用红色显示，并且只要相同记录的话，第二列逻辑列中只能勾选其中一个记录，其余相同的记录就不可以勾选 了？ 感谢。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110569 积分：562735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/6 10:29:00 [只看该作者]

drawcell
if e.table.compute("count(第一列)","第一列='" & e.row("第一列") & "'") > 1 then
e.style = "样式1"
end if

datacolchanging事件
 if e.datacol.name = "某逻辑列"
if e.datatable.compute("count(第一列)","第一列='" & e.datarow("第一列") & "' and _Identify<>" & e.datarow("_Identify")) > 0 then
e.cancel = true
end if
end if
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2020/6/6 15:54:00 [只看该作者]


谢谢，以下有点不对，出现调用失败，如图。 两笔相同的记录还是中以同时选中的。 顺便说一下这个第一列是文本型的，有关系吗？


 if e.datacol.name = "某逻辑列"
if e.datatable.compute("count(第一列)","第一列='" & e.datarow("第一列") & "' and _Identify<>" & e.datarow("_Identify")) > 0 then
e.cancel = true
end if
end if

[此贴子已经被作者于2020/6/6 15:55:35编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110569 积分：562735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/6 16:00:00 [只看该作者]

If e.DataCol.name = "某逻辑列名称"
    If e.DataTable.compute("count(第一列)","第一列='" & e.DataRow("第一列") & "' and 某逻辑列名称=true and _Identify<>" & e.DataRow("_Identify")) > 0 Then
        e.cancel = True
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
sanny
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2020/6/6 16:37:00 [只看该作者]

正确，可以帮忙也改成控件的代码吗 ？ 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110569 积分：562735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/6 16:43:00 [只看该作者]

什么控件？请详细说明

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


加好友 发短信
等级：三尾狐 帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00 		  发帖心情 Post By：2020/6/6 16:46:00 [只看该作者]

窗口中的Button1,谢谢。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110569 积分：562735 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/6 17:06:00 [只看该作者]

dm r as row = tables("xxx"),current
If r isnot nothing
    If DataTables(“xxx”).compute("count(第一列)","第一列='" & r("第一列") & "' and 某逻辑列名称=true and _Identify<>" & r("_Identify")) > 0 Then
        msgbox("已勾选")
    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.05469 秒, 4 次数据查询