Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现绘制 超范围 显示


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

主题:[求助]如何实现绘制 超范围 显示

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/8 8:37:00 [显示全部帖子]

If e.Col.name = "筛分60目" Then
    If e.Row.IsNull(e.Col.Name) = False
        Dim dr = DataTables("表B").Find("产品列表 = '" & e.Row("产品") & "'")
        If dr IsNot Nothing Then
            If val(e.Row("筛分60目")) < val(dr("筛分60目标准_最低值")) OrElse val(e.Row("筛分60目")) > val(dr("筛分60目标准_最高值")) Then
                e.Table.DataTable.AddUserStyle("不合格", Color.red, Color.black)
                e.Style = "不合格"
            End If
        End If
    End If  
End If

 回到顶部