Foxtable(狐表)用户栏目专家坐堂 → 代码调整


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

主题:代码调整

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


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
代码调整  发帖心情 Post By:2022/5/20 9:27:00 [只看该作者]

老师,我想把代码一改成代码二那种格式,线别不知道怎么改合适,请帮忙看看,谢谢!
代码一
With DataTables("加工不良审核_不良明细")
    Dim filter = "[异常类型] = '加工不良' and [线长处理] Is Null"
    Dim str = ""
    For Each s As String In _UserGroup.split(",")
        str &= " or [线别] = '" & s & "'"
    Next
    filter &= " and (" & str.Substring(3) & ")"
    .LoadFilter = filter
    .LoadTop = 1000
    .LoadPage = 0
    .Load()
End With
代码二:
   Case "管理工时批准"
            r.Group = "工时业务处理"
            Dim cnt As Integer = DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")
            If cnt > 0 Then
                fl = Functions.Execute("addimage",fl,cnt)
            End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/20 9:35:00 [只看该作者]

没看懂。这2段代码有什么关系?

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


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2022/5/20 9:40:00 [只看该作者]

我想把代码一的代码放到代码二红色字体的那个位置,可以怎么改呢,谢谢
代码一:
   Dim str = ""
    For Each s As String In _UserGroup.split(",")
        str &= " or [线别] = '" & s & "'"
    Next
    filter &= " and (" & str.Substring(3) & ")"
   
代码二:
        Case "不良品处理"
            r.Group = "生产过程处理"
            Dim cnt As Integer = DataTables("过程异常明细").SQLCompute("Count(线别)","[生产批次] like '22%' And [异常类型] = '加工不良' And  [线长处理] Is Null  And  '," & _UserGroup & ",' like '%生产部%'")
            If cnt > 0 Then
                fl = Functions.Execute("addimage",fl,cnt)
            End If

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/20 9:45:00 [只看该作者]

还是没看懂,是要判断[线别]?还是判断用户组?

Dim cnt As Integer = DataTables("过程异常明细").SQLCompute("Count(线别)","[生产批次] like '22%' And [异常类型] = '加工不良' And  [线长处理] Is Null  And  '," & _UserGroup & ",' like '%,生产部,%'")

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


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2022/5/20 9:52:00 [只看该作者]

是这样的,我有一列列名为线别的列,我想让里面的数据根据我登录人员的用户组分类自动在线别中显示我要的明细。比如:我的过程异常明细这个表中,线别列里有机加A线,机加C线、装配线等,登录名张三的用户组中包含有机加A线、机加C线,那过程明细表中只需要显示机加A线、机加C线,装配线的不需要显示。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/20 9:58:00 [只看该作者]

Dim cnt As Integer = DataTables("过程异常明细").SQLCompute("Count(线别)","[生产批次] like '22%' And [异常类型] = '加工不良' And  [线长处理] Is Null  And  '," & _UserGroup & ",' like '%,' + [线别] + ',%'")

 回到顶部