[求助]这个绘制能否优化？（大红袍老师请进，发现新问题） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这个绘制能否优化？（大红袍老师请进，发现新问题）

共有3808人关注过本帖树形打印复制链接主题：[求助]这个绘制能否优化？（大红袍老师请进，发现新问题）

36792209

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：241 积分：1782 威望：0 精华：0 注册：2015/7/13 14:36:00

Post By：2016/4/11 21:54:00 [显示全部帖子]

老师，这几天试用中，又发现问题了，虽然清空重复行数据，只有一行唯独的数据下虽然没有颜色，

但是我直接删除重复行，另外一行的辅助列不自动清空了

[此贴子已经被作者于2016/4/17 11:21:26编辑过]

36792209

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：241 积分：1782 威望：0 精华：0 注册：2015/7/13 14:36:00

Post By：2016/4/17 11:29:00 [显示全部帖子]

请老师帮忙查看下。

If e.DataCol.Name = "客户" Then
    If e.NewValue = Nothing Then
        e.DataRow("辅助") = False
    Else
        Dim count As Integer = e.DataTable.Compute("count(客户)", "客户 = '" & e.DataRow("客户") & "'")
        If Count > 1 Then
            e.DataTable.ReplaceFor("辅助", True, "客户 = '" & e.DataRow("客户") & "'")
        Else
            e.DataTable.ReplaceFor("辅助", False, "客户 = '" & e.DataRow("客户") & "'")
        End If
    End If
    If e.oldvalue <> Nothing Then
       Dim count = e.DataTable.Compute("count(客户)", "客户 = '" & e.oldvalue & "'")
        If count <= 1 Then
            e.DataTable.ReplaceFor("辅助", False, "客户 = '" & e.oldvalue & "'")
        End If
    End If
End If

这个代码清楚重复数据后，不会绘制，

但是直接删除重复行后，剩下的之前重复的行依然有绘制的颜色。

[此贴子已经被作者于2016/4/17 11:41:23编辑过]