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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]全局表事件

共有2385人关注过本帖树形打印复制链接主题：[求助]全局表事件

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1390 积分：10708 威望：0 精华：0 注册：2013/11/8 15:27:00

[求助]全局表事件 发帖心情

Post By：2017/7/17 8:51:00 [只看该作者]

DataTables("利润表").GlobalHandler.DataColChanged = True
Select Case e.DataTable.Name
    Case "利润表"
If e.DataCol.Name = "利润总额" Then
    If e.DataRow.IsNull(e.DataCol.Name) = False
        If e.DataRow(e.DataCol.Name) < 0 Then
            e.Style = "利润亏损"
        End If
    End If
End If
End Select

其中“利润表”是临时统计表。出现以下错误提示

编译错误：”Style“不是”DataColEventArgs"的成员

错误代码：e.Style = "利润亏损"

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/17 9:15:00 [只看该作者]

如果要绘制，你的代码只能写到drawcell事件去。

lgj716330

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

加好友

发短信

等级：六尾狐帖子：1390 积分：10708 威望：0 精华：0 注册：2013/11/8 15:27:00

Post By：2017/7/17 10:01:00 [只看该作者]

DataTables("利润表").GlobalHandler.DrawCell = True
Select Case e.Table.Name
    Case "利润表"
    If e.Col.Name = "利润总额" Then
        If e.Row.IsNull(e.Col.Name) = False
            If e.Row(e.Col.Name) < 0 Then
            e.Style = "利润亏损"
            End If
        End If
    End If
End Select

嗯，在DrawCell里没错误提示，但结果没起作用

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/17 11:18:00 [只看该作者]

Select Case e.Table.Name
    Case "利润表"
        If e.Row("利润总额") < 0 Then
            e.Table.DataTable.AddUserStyle("利润亏损", color.red, color.black)
            e.Style = "利润亏损"
        End If
End Select