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


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

主题:[求助]全局表事件

帅哥哟,离线,有人找我吗?
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 = "利润亏损"

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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里没错误提示,但结果没起作用

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


加好友 发短信
等级:六尾狐 帖子:1390 积分:10708 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2017/7/19 13:13:00 [显示全部帖子]

上述代码还是没起到作用

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


加好友 发短信
等级:六尾狐 帖子:1390 积分:10708 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2017/7/19 15:39:00 [显示全部帖子]

没写,我直接写在全局表事件里了,这是个临时表
刚测试了,就算写在afterOpenProject里也是没用

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


加好友 发短信
等级:六尾狐 帖子:1390 积分:10708 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2017/7/19 16:25:00 [显示全部帖子]

有可参照的吗,不知如何绑定

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


加好友 发短信
等级:六尾狐 帖子:1390 积分:10708 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2017/7/19 18:13:00 [显示全部帖子]

我在生成的临时表后这样写,代码要怎么改,实在搞不定了

Dim t9 As Table = Tables("利润表") 
Dim r9 As Row
For i9 As Integer = 0 To Tables("利润表").Rows.Count(True) - 1
    r9 = Tables("利润表").Rows(i9,True)
        If r9("利润总额") < 0 Then
            t9.AddUserStyle("利润亏损", color.red, color.black)
            t9.Style = "利润亏损"
        End If
Next
[此贴子已经被作者于2017/7/19 18:14:03编辑过]

 回到顶部