Foxtable(狐表)用户栏目专家坐堂 → [讨论]关于DRAWCELL 关联表判断的问题


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

主题:[讨论]关于DRAWCELL 关联表判断的问题

美女呀,离线,留言给我吧!
atropos57
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:13 积分:141 威望:0 精华:0 注册:2020/1/15 9:58:00
[讨论]关于DRAWCELL 关联表判断的问题  发帖心情 Post By:2021/8/9 14:27:00 [只看该作者]

 设表A 为数据记录表   表B 为数据正常判断的标准,两个表通过地区关联。

表A:

地区     CODjin      CODchu
成都       100             20
资阳        30            10

表B(标准)
地区             CODjin     CODchu
成都               30             10
资阳               200           50

在表A上进行DrawCell 绘制判断:
如果表A 成都地区 codjin>   表B 的 成都地区 codjin,则判断为【异常】
如果表A 成都地区 codchu>   表B 的 成都地区 codchu,则判断为【异常】

如果表A 资阳地区 codjin>   表B 的 资阳地区 codjin,则判断为【异常】

代码如下:

If e.Col.IsNumeric AndAlso e.Col.Name = "CODchu"   Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
     
If e.Row(e.Col.Name) > e.DataTables("表B").Row("CODchu")  Then    '如果该列的值大于表B的CODchu,

                e.Style = "异常"   '那么用"异常"样式绘制单元格
                
            End If
        End If



============以上代码提示出错,请问应该怎么修改呢======
[此贴子已经被作者于2021/8/9 16:33:37编辑过]

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


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/9 14:53:00 [只看该作者]

If e.Col.Name = "CODchu" OrElse e.Col.Name = "codjin"   Then
    Dim dr As DataRow = DataTables("表B").Find("地区='" & e.Row("地区") & "'")
    If dr IsNot Nothing AndAlso dr.IsNull(e.Col.Name) = False
        If e.Row(e.Col.Name) > dr(e.Col.Name)  Then    '如果该列的值大于表B的CODchu,
            
            e.Style = "异常"   '那么用"异常"样式绘制单元格
            
        End If
    End If
End If

 回到顶部
美女呀,离线,留言给我吧!
atropos57
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:13 积分:141 威望:0 精华:0 注册:2020/1/15 9:58:00
  发帖心情 Post By:2021/8/9 16:33:00 [只看该作者]

 多谢~

 回到顶部