lin_hailun
你于2012-11-27 17:07:00回复给我的这个“管理项目1.Table”,我又试验了多次,确实是只能查找重复次数是二次的数值,而非严格的查找出现频率最低的数值,我还把“管理项目1.Table”的代码也输出来看了一下,如下
项目事件
计划管理
表事件
窗口表事件
窗口与控件事件
窗口1_Button1_Click
Dim names As List(Of String) = DataTables("表A").GetUniqueValues("", "第一列")
For Each name As String In names
If DataTables("表A").Compute("Count(_Identify)", "第一列 = '" & name & "'") = 2 Then
Dim ndr As DataRow = DataTables("表B").AddNew
ndr("第一列") = name
End If
Next
MainTable = Tables("表B")
自定义函数
全局代码
菜单事件
据我估计是
If DataTables("表A").Compute("Count(_Identify)", "第一列 = '" & name & "'") = 2 Then
这一句中后面“=2”应怎样把它改写成“=重复次数最低的数值”,才能筛选出出现频率最低的数值,
但是我大学时VB编程课考了两次都未及格,所以我也不知道该怎样编写这样的代码,也请各位大师或高手帮忙吧!