- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 重复数据显示颜色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108434)
-- 发布时间：2017/10/23 9:29:00
-- 重复数据显示颜色
以下代码我的目的是想出现重复数据时显示不同的颜色，但是以下的代码执行结果为只值不为空就是显示不同颜色，该怎么修改？
Select Case e.Col.name
Case "银行账号"
If e.Col.name = "银行账号" AndAlso e.Row.Isnull("银行账号") = False Then
Dim dr As DataRow = e.Table.DataTable.find("银行账号 = \'" & e.Row("银行账号") & "\'or 银行卡号 = \'" & e.Row("银行账号") & "\'")
If dr IsNot Nothing Then
e.Style = "样式1"
End If
End If
Case "银行卡号"
\'If e.Col.name = "银行卡号" Then \'AndAlso e.Row.Isnull("银行卡号") = False Then
\'Dim dr As DataRow = e.Table.DataTable.find("银行卡号 = \'" & e.Row("银行卡号") & "\'or 银行账号 = \'" & e.Row("银行卡号") & "\'")
Dim dr As DataRow = e.Table.DataTable.find("银行卡号 = \'" & e.Row("银行卡号") & "\'")
If dr IsNot Nothing Then
e.Style = "样式1"
End If
\'End If
End Select
-- 发布时间：2017/10/23 10:02:00
--
Dim dr As DataRow = e.Table.DataTable.find("(银行账号 = \'" & e.Row("银行账号") & "\'or 银行卡号 = \'" & e.Row("银行账号") & "\') And _Identify <> " & e.row("_Identify"))
------------
Dim dr As DataRow = e.Table.DataTable.find("银行卡号 = \'" & e.Row("银行卡号") & "\' and _Identify <> " & e.row("_Identify"))
-- 发布时间：2017/10/23 10:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目13.foxdb |
-- 发布时间：2017/10/23 10:13:00
--
这是例子，还是实现不了我想要的功能，我的目的是希望新输入的数据与以前的数据重复时，新输入的数据颜色能够改变
-- 发布时间：2017/10/23 10:25:00
--
-- 发布时间：2017/10/23 10:28:00
--
Select Case e.Col.name
Case "银行账号"
If e.Col.name = "银行账号" AndAlso e.Row.Isnull("银行账号") = False Then
Dim dr As DataRow = e.Table.DataTable.find("(银行账号 = \'" & e.Row("银行账号") & "\') And _Identify <> " & e.Row("_Identify"))
If dr IsNot Nothing Then
e.Style = "样式1"
End If
End If
Case "银行卡号"
If e.Col.name = "银行卡号" Then \'AndAlso e.Row.Isnull("银行卡号") = False Then
Dim dr As DataRow = e.Table.DataTable.find("(银行卡号 = \'" & e.Row("银行卡号") & "\') And _Identify <> " & e.Row("_Identify"))
If dr IsNot Nothing Then
e.Style = "样式1"
End If
End If
End Select