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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多值转换问题

共有1861人关注过本帖树形打印复制链接主题：多值转换问题

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 9:49:00 [显示全部帖子]

[此贴子已经被作者于2016/4/29 9:49:39编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 9:51:00 [显示全部帖子]

Dim cs() As String = {"设计","校对","审核","批准"}
Dim r As Row = Tables("工作策划操作_Table3").Current 'SQL工作策划副表
For Each c As String In cs
    If r.IsNull(c) = False Then
        Dim i As Integer '以下代码功能,当产生第一次转换后,再转换时重复值删除
        Dim nr As Row
        Dim idx As Integer = Tables("工作策划副表审核").FindRow("审批流程='" & c & "'")

        If idx >= 0 Then
            nr = Tables("工作策划副表审核").rows(idx)
        Else
            nr = Tables("工作策划副表审核").addnew
        End If
        Dim st() As String = r(c).Split(",")
        For Each s As String In st
            nr("审批流程") = c
            nr("审批人员") = s
        Next
    End If
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 10:35:00 [显示全部帖子]

Dim cs() As String = {"设计","校对","审核","批准"}
Dim r As Row = Tables("工作策划操作_Table3").Current 'SQL工作策划副表
For Each c As String In cs
    If r.IsNull(c) = False Then
        Dim i As Integer '以下代码功能,当产生第一次转换后,再转换时重复值删除
        DataTables("工作策划副表审核").deletefor("审批流程='" & c & "'")

        Dim st() As String = r(c).Split(",")
        For Each s As String In st
            Dim nr = Tables("工作策划副表审核").addnew
            nr("审批流程") = c
            nr("审批人员") = s
        Next
    End If
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 12:03:00 [显示全部帖子]

If e.DataCol.Name = "审批完成" Then '窗口工作策划操作,SQL工作策划副表审核勾选后,SQL工作策划副表对应列打钩
    Dim fdr As DataRow = DataTables("工作策划操作_Table3").find("任务索引 = '" & e.DataRow("任务索引") & "'") '模拟主表,SQL工作策划副表
    If fdr IsNot Nothing Then
        Dim str As String = e.DataRow("审批流程")
        If str.length >= 2 Then
            str = str.SubString(0,str.length -2)
            If fdr.DataTable.DataCols.Contains(str & "完成") Then
                If e.DataRow("审批完成") = False
                    fdr(str & "完成") = False
                Else
                    Dim c1 As Integer = e.DataTable.compute("count(任务索引)", "任务索引 = '" & e.DataRow("任务索引") & "'")
                    Dim c2 As Integer = e.DataTable.compute("count(任务索引)", "任务索引 = '" & e.DataRow("任务索引") & "' and 审批完成 = true")
                    fdr(str & "完成") = (c1 = c2)
                End If
            End If
        End If
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/29 14:35:00 [显示全部帖子]

If e.DataCol.Name = "审批完成" Then
    Dim fdr As DataRow = DataTables("表E").find("编号 = '" & e.DataRow("编号") & "'") '模拟主表,SQL工作策划副表
    If fdr IsNot Nothing Then
        Dim str As String = e.DataRow("审批流程")
        If str.length >= 2 Then
            str = str.SubString(0,str.length -2)
            If fdr.DataTable.DataCols.Contains(str & "完成") Then
                If e.DataRow("审批完成") = False
                    fdr(str & "完成") = False
                Else
                    Dim c1 As Integer = e.DataTable.compute("count(编号)", "编号 = '" & e.DataRow("编号") & "' and 审批流程 = '" & e.DataRow("审批流程") & "'")
                    Dim c2 As Integer = e.DataTable.compute("count(编号)", "编号 = '" & e.DataRow("编号") & "' and 审批完成 = true and 审批流程 = '" & e.DataRow("审批流程") & "'")
                    fdr(str & "完成") = (c1 = c2)
                End If
            End If
        End If
    End If
End If

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

主题：多值转换问题