[求助]根据样式给列赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据样式给列赋值

共有2949人关注过本帖树形打印复制链接主题：[求助]根据样式给列赋值

fox20150629

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

加好友

发短信

等级：婴狐帖子：49 积分：412 威望：0 精华：0 注册：2015/8/11 10:52:00

[求助]根据样式给列赋值 发帖心情

Post By：2015/8/25 15:52:00 [只看该作者]

怎么根据单元格自定义样式给单元格自动赋值，在列的哪个属性设置呢，例如表的e.style="绿色"，想要排序列值自动为1

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 16:01:00 [只看该作者]

不行。

去datacolchanged事件根据逻辑写代码。然后重置列计算。

fox20150629

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

加好友

发短信

等级：婴狐帖子：49 积分：412 威望：0 精华：0 注册：2015/8/11 10:52:00

Post By：2015/8/25 16:21:00 [只看该作者]

以下是引用大红袍在2015/8/25 16:01:00的发言：

不行。

去datacolchanged事件根据逻辑写代码。然后重置列计算。

如何重置列计算呢，我的表drawcell代码这样设置颜色的

If e.Row.IsNull("列1") = False AndAlso e.Row.IsNull("列2") AndAlso e.Row.IsNull("列3") Then

e.Style = "绿色"

End If

If e.Row.IsNull("列1") = False AndAlso e.Row.IsNull("列3") = False AndAlso e.Row.IsNull("列2") Then

e.Style = "橙色"

End If

If e.Row.IsNull("列2") = False AndAlso e.Row.IsNull("列3") = False AndAlso e.Row.IsNull("ATA")= False Then

e.Style = "灰色"

End If

If e.Row.IsNull("列1") AndAlso e.Row.IsNull("列2") AndAlso e.Row.IsNull("列3") Then

e.Style = "白色"

End If

想根据这些样式颜色给列4赋值1,2,3,4然后好将相同颜色排序

[此贴子已经被作者于2015/8/25 16:21:58编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2015/8/25 16:27:00 [只看该作者]

If e.Row.IsNull("列1") = False AndAlso e.Row.IsNull("列2") AndAlso e.Row.IsNull("列3") Then

e.Style = "绿色"

e.Row(“列4”) = 1

试一下画的时候直接赋值

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/25 16:28:00 [只看该作者]

http://www.foxtable.com/help/topics/1469.htm

Select Case e.DataCol.Name

    Case "列1","列2","列3"
        If e.DataRow.IsNull("列1") = False AndAlso e.DataRow.IsNull("列2") AndAlso e.DataRow.IsNull("列3") Then

            e.DataRow("排序") = 1

        End If

        If e.DataRow.IsNull("列1") = False AndAlso e.DataRow.IsNull("列3") = False AndAlso e.DataRow.IsNull("列2") Then

            e.DataRow("排序") = 2

        End If

        If e.DataRow.IsNull("列2") = False AndAlso e.DataRow.IsNull("列3") = False AndAlso e.DataRow.IsNull("ATA")= False Then

            e.DataRow("排序") = 3

        End If

        If e.DataRow.IsNull("列1") AndAlso e.DataRow.IsNull("列2") AndAlso e.DataRow.IsNull("列3") Then

            e.DataRow("排序") = 4

        End If

End Select