以下是引用有点甜在2019/1/14 16:21:00的发言:
Dim dt As Table = Tables("information")
Dim dic As new Dictionary(of String, Integer)
For Each r As Row In dt.Rows
Dim ary() As String = {r("开奖号码_A"),r("开奖号码_B"), r("开奖号码_C"), r("开奖号码_D"), r("开奖号码_E")}
array.sort(ary)
Dim str = String.Join(",", ary)
If dic.ContainsKey(str) = False Then
dic.Add(str, 1)
Else
dic(str) += 1
End If
Next
Dim t As Table = Tables("表A")
t.StopRedraw
t.DataTable.DataRows.Clear
For Each key As String In dic.Keys
Dim nr As DataRow = t.DataTable.addnew
nr("第一列") = key
nr("第二列") = dic(key)
Next
t.ResumeRedraw
t.sort = "第二列 desc"
老师你好,我是个新手,请教一下,如果我想统计4位数组合出现的次数,上面的代码要怎么修改呀
例如这个表
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:2.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-1/20191151034173422.png)
想要显示2,3,4,5 6次
1,2,3,4 4次
1,3,4,5 4次
2,3,4,6 2次
3,4,5,6
2次
1,2,7,8
1次
1,2,7,9
1次
我用合并数组的方法,行不通![dvubb 图片点击可在新窗口打开查看](images/emot/em04.gif)