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
![dvubb 按此在新窗口浏览图片](UploadFile/2018-7/20187152355195480.png)
此主题相关图片如下:235535.png
![dvubb 按此在新窗口浏览图片](UploadFile/2018-7/201871523555349974.png)