Dim dtb As DataTable = DataTables("抽签入围")  \'提取表

Dim tb As Table = Tables("抽签入围台帐_Table2")  \'接收表

\'\'\'\'=======清除原有所有数据行======

For i As Integer = tb.Rows.Count -1 To 0 Step -1

    tb.Rows(i).Delete()

Next

 

\'\'===========多列数据中提取不重复的值============

Dim lst As New List(Of Integer)

For Each dc As DataCol In dtb.DataCols

    If dc.Name.StartsWith("市内入围编号_") Then

        For Each dr As DataRow In dtb.DataRows

            If dr(dc.Name) > 0 AndAlso lst.Contains(dr(dc.Name)) = False Then

                lst.Add(dr(dc.Name))

            End If

        Next

    End If

Next

\'msgbox(Integer.Join("|", lst.ToArray))

Dim ndr As Row

For Each bh As String In lst   \'遍历集合所有数据

    ndr = tb.AddNew()

    ndr("市内_入围编号") = bh   \' CInt(n.Trim("内"))

Next

 

\'\'\'\'========提取球号出现次数========

For Each rw As Row In tb.Rows

    If rw.IsNull("市内_入围编号") Then

        rw("市内_次数") = Nothing

    Else

        Dim cnt As Integer = 0

        For Each dc As DataCol In dtb.DataCols

            If dc.Name.StartsWith("市内入围编号_") Then

                For Each dr As DataRow In dtb.DataRows

                    If rw("市内_入围编号") = dr(dc.Name) Then

                        cnt += 1

                    End If

                Next

                rw("市内_次数") = cnt

            End If

        Next

    End If

Next

此主题相关图片如下：qq截图20180715235438.png

此主题相关图片如下：235535.png