主题：求助：自动进行记录列值调整

求助：自动进行记录列值调整 希望对《原始数据》中数据一、二、三……数据列的值进行位置调整，数据只能在有值处调整，不能纵向调整，只能横向调整。如编号1的记录数据有“物理”、 “地理”、“化学”这三个值，调整也就是这三个值可互换位置，不能调整到数据四、五、六列；这3个值也不能调整到其它编号，如不能调整到编号5的记录中。 现希望根据“希望调整后统计数据”这个表来进行调整。注：“调整前数据统计”是统计“原始数据”中相应列各值出现的次数。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:记录列值调整.table

 

汗，递归就不写了麻烦，直接判断。

 

下面代码只做了两种情况的判断，你扩展一下写。

 

Dim dt1 As DataTable = DataTables("希望调整后统计结果")
Dim dt2 As DataTable = DataTables("原始数据")
Dim dtb As new DataTableBuilder("测试")
dtb.AddDef("编号", Gettype(String), 32)
dtb.AddDef("数据一", Gettype(String), 32)
dtb.AddDef("数据二", Gettype(String), 32)
dtb.AddDef("数据三", Gettype(String),32)
dtb.Build()
Dim dt3 As DataTable = DataTables("测试")
dt3.AddNew(dt2.DataRows.count)
Dim ary() As String = {"数据一", "数据二", "数据三"}
Dim drs = dt1.Select("科目 <> '总计'")
For Each c As String In ary
    Dim idx As Integer = 0
    For Each dr As DataRow In drs
        For i As Integer = idx To idx+dr(c)-1
            dt3.DataRows(i)(c) = dr("科目")
        Next
        idx += dr(c)
    Next
Next
For i As Integer = 0 To 10 '测试少量数据
    Dim dr As DataRow = dt2.DataRows(i)
   
    'Dim ls As new List(Of String)
    'ls.add(dr("数据一"))
    'ls.add(dr("数据二"))
    'ls.add(dr("数据三"))
   
    'Dim flag As Boolean = False
    'For Each cdr As DataRow In dt3.DataRows
    'If cdr.Isnull("编号") Then
    'If ls.Contains(cdr("数据一")) AndAlso ls.Contains(cdr("数据二")) AndAlso ls.Contains(cdr("数据三")) AndAlso cdr("数据一") <> cdr("数据二") AndAlso cdr("数据一") <> cdr("数据三") AndAlso cdr("数据三") <> cdr("数据二")Then
    'flag = True
    'cdr("编号") = dr("编号")
    'Exit For
    'End If
    'End If
    'Next
   
   
    Dim temp As String = ""
    For Each cdr As DataRow In dt3.DataRows
        If cdr.Isnull("编号") Then
            If dr("数据一") = cdr("数据一") OrElse dr("数据一") = cdr("数据二") OrElse dr("数据一") = cdr("数据三") Then
                If dr("数据一") = cdr("数据一") Then
                    For Each ccdr As DataRow In dt3.DataRows
                        If ccdr.Isnull("编号") Then
                            If dr("数据二") = ccdr("数据二") OrElse dr("数据二") = ccdr("数据三") Then
                                If dr("数据二") = ccdr("数据二") Then
                                    For Each cccdr As DataRow In dt3.DataRows
                                        If cccdr.Isnull("编号") Then
                                            If dr("数据三") = cccdr("数据三") Then
                                                cdr("编号") = dr("编号")
                                                temp = cdr("数据三")
                                                cdr("数据三") = cccdr("数据三")
                                                cccdr("数据三") = temp
                                                temp = cdr("数据二")
                                                cdr("数据二") = ccdr("数据二")
                                                ccdr("数据二") = temp
                                                Exit For
                                            End If
                                        End If
                                    Next
                                ElseIf dr("数据二") = ccdr("数据三") Then
                                    For Each cccdr As DataRow In dt3.DataRows
                                        If cccdr.Isnull("编号") Then
                                            If dr("数据三") = cccdr("数据二") Then
                                                cdr("编号") = dr("编号")
                                                temp = cdr("数据二")
                                                cdr("数据二") = cccdr("数据二")
                                                cccdr("数据二") = temp
                                                temp = cdr("数据三")
                                                cdr("数据三") = ccdr("数据三")
                                                ccdr("数据三") = temp
                                                Exit For
                                            End If
                                        End If
                                    Next

                                End If
                                Exit For
                            End If
                        End If
                    Next
                End If
                Exit For
            End If
        End If
    Next
Next
MainTable = Tables("测试")

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:记录列值调整.table

谢谢两位版主

1、看懂2楼代码；

 

2、判断各个组合集合，2楼的代码判断的是  数据一=数据一，数据二=数据二，数据三=数据三 的情况，以及 数据一=数据一，数据二=数据三，数据三=数据二 的情况。

 

你把只需要再加判断即可。应该有6种可能性。

现数据一二三有6种可能性，实际数据需增加到数据七、数据八，这样就麻烦很多了。

那就要组合排列，然后根据组合排列去编写代码，如

 

下载信息  [文件大小：316.0 KB  下载次数：37]

点击浏览该文件:排列组合.table

参考代码，计算比较慢

 

Dim dt1 As DataTable = DataTables("希望调整后统计结果")
Dim dt2 As DataTable = DataTables("原始数据")
Dim dtb As new DataTableBuilder("测试")
dtb.AddDef("编号", Gettype(String), 32)
dtb.AddDef("数据一", Gettype(String), 32)
dtb.AddDef("数据二", Gettype(String), 32)
dtb.AddDef("数据三", Gettype(String),32)
dtb.Build()
Dim dt3 As DataTable = DataTables("测试")
dt3.AddNew(dt2.DataRows.count)
Dim ary() As String = {"数据一", "数据二", "数据三"}
Dim drs = dt1.Select("科目 <> '总计'")
For Each c As String In ary
    Dim idx As Integer = 0
    For Each dr As DataRow In drs
        For i As Integer = idx To idx+dr(c)-1
            dt3.DataRows(i)(c) = dr("科目")
        Next
        idx += dr(c)
    Next
Next

'求排列
Dim lst_Permutation As List(Of String()) = PermutationAndCombination(Of String).GetPermutation(ary, ary.Length)

For i As Integer = 0 To 54 '测试少量数据
output.show(i)
    Dim dr As DataRow = dt2.DataRows(i)
    Dim temp As String = ""
    For Each ary In lst_Permutation
output.show(ary(0) & " " & ary(1) & " " & ary(2))
        For Each cdr As DataRow In dt3.DataRows
            If cdr.Isnull("编号") Then
                If dr("数据一") = cdr(ary(0)) Then
                    For Each ccdr As DataRow In dt3.DataRows
                        If ccdr.Isnull("编号") Then
                            If dr("数据二") = ccdr(ary(1)) Then
                                For Each cccdr As DataRow In dt3.DataRows
                                    If cccdr.Isnull("编号") Then
                                        If dr("数据三") = cccdr(ary(2)) Then
                                            cdr("编号") = dr("编号")
                                            temp = cdr(ary(2))
                                            cdr(ary(2)) = cccdr(ary(2))
                                            cccdr(ary(2)) = temp
                                            temp = cdr(ary(1))
                                            cdr(ary(1)) = ccdr(ary(1))
                                            ccdr(ary(1)) = temp
                                            goto label1
                                        End If
                                    End If
                                Next
                            End If
                        End If
                    Next
                End If
            End If
        Next
    Next
    label1:
Next
MainTable = Tables("测试")