主题：[求助]怎样用狐表来实现求找出现频率最低的数据

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

点击浏览该文件:求找频率最低值1.table

 并不是显示频率最低的值，而是显示你设置的频率的值，你设置最低的频率是多少，就显示什么。

 ok

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

点击浏览该文件:求找频率最低值1.table

lin_hailun

   麻烦你能不能帮我看一下你于2012-11-27 17:07:00 回复给我的这个“管理项目1.table”(附件中我已重命名了)，刚才我试验了一下，当我在表A的第1--12行中分别输入4个“你”4个“我”4个“他”后，再在第13、14行中分别输入“你”“我”后，再点击button1时，表B的第1、2行都无任何显示，如果真是求找出现频率最低的值，那应该显示“他”才对，并且我还发现，这个“管理项目1.table”好像只能求找重复次数是两次的数值，我猜想是不是编写代码上哪儿还不对?

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

点击浏览该文件:求找频率最低值1.table

 看13楼，不解释。

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编程课考了两次都未及格，所以我也不知道该怎样编写这样的代码，也请各位大师或高手帮忙吧！

 

 看13楼，确实不解释了，不看算了。