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


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

主题:[求助]这个绘制能否优化?(大红袍老师请进,发现新问题)

帅哥哟,离线,有人找我吗?
36792209
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/11 21:22:00 [只看该作者]

完蛋。。。老师,刚刚才发现一个重要的问题,重复值是标记出了,可是我删除重复值后,前面那个数据和后面的空数据都被绘制了颜色,怎么解决啊???

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/11 21:31:00 [只看该作者]

老师,再帮忙看下。。。急啊图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/11 21:37:00 [只看该作者]

If e.DataCol.Name = "客户" Then
    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 e.DataRow.IsNull("客户") Then
    e.DataRow("辅助") = False
End If


If e.DataRow.IsNull("客户") Then
    e.DataRow("辅助") = False
End If

我在下面加了这个解决了,不知道合不合理

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/11 21:46:00 [只看该作者]

头疼啊。。。。虽然删除重复值,绘制是没有了。但是上面的数据颜色依然在。。。。。。。。。。。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/11 21:52: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

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/17 11:58:00 [只看该作者]

在线等啊~图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
36792209
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:1782 威望:0 精华:0 注册:2015/7/13 14:36:00
  发帖心情 Post By:2016/4/17 14:04:00 [只看该作者]

救命啊~

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/17 14:22:00 [只看该作者]

上传例子测试

 回到顶部
总数 44 上一页 1 2 3 4 5 下一页