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

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

共有5032人关注过本帖树形打印复制链接主题：代码调整

nuoyan89

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

加好友

发短信

等级：二尾狐帖子：503 积分：3495 威望：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 & "'"

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

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/20 9:35:00 [只看该作者]

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

nuoyan89

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

加好友

发短信

等级：二尾狐帖子：503 积分：3495 威望：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 & "'"

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

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：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

加好友

发短信

等级：二尾狐帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2022/5/20 9:52:00 [只看该作者]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：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 '%,' + [线别] + ',%'")

下一主题 >> << 上一主题

主题：代码调整