Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:狐表列数据选择中“显示重复内容”和“排除重复内容”的功能在哪里?

1楼
byzy3260 发表于:2008/12/12 15:24:00
请问原来易表中列数据选择“显示重复内容”或“排除重复内容”的功能在狐表中如何体现,我找不着啊?
2楼
狐狸爸爸 发表于:2008/12/12 15:24:00
呵呵,没有这两个东西了。
3楼
byzy3260 发表于:2008/12/12 16:11:00
可是,我想在有3000行数据的“身份证号码”列中找到有重复的号码,以便于排除错误,怎么办,请帮助!
4楼
狐狸爸爸 发表于:2008/12/12 16:42:00

列属性有禁止重复的选项,选中可禁止输入重复的内容。如果已经输入,参考下面的例子:


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table

5楼
ybil 发表于:2008/12/12 18:44:00

也可一个按钮两用:

'''
Dim T  As String
Dim Da  As DataTable = DataTables("资料")
If  Da.DataCols.Contains("重复") = False Then
    Da.DataCols.Add("重复",GetType(Boolean))
End If

if Da.DataCols("重复").Caption = "不重复" then

    For Each dr As DataRow in Da.Select("[身份证号码] Is Not Null")
        T =  "[身份证号码] ='" &  dr("身份证号码") & "'"
        If Da.Compute("Count(身份证号码)",T) >1 Then
            dr("重复") = True
        Else
            dr("重复") = False
        End If
    Next

    Da.DataCols("重复").Caption = "重复"
   
Else
    Dim Ps As List(Of String)
    Ps = Da.GetUniqueValues("[身份证号码] Is Not Null","身份证号码")

    For Each dr  As DataRow in Da.DataRows
        dr("重复") = False
    Next

    For i As Integer = 0 To Ps.Count-1
       T ="身份证号码 = '" & Ps(i) & "'"
       Da.Find(T)("重复") = True
    Next
    Da.DataCols("重复").Caption = "不重复"

End if
Tables("资料").BuildHeader()
Tables("资料").Filter = "[重复] = True"
Tables("资料").Sort = "身份证号码"

[此贴子已经被作者于2008-12-12 18:46:57编辑过]
6楼
狐狸爸爸 发表于:2008/12/15 10:51:00
呵呵,刚刚在菜单中加上了重复值的筛选,以后不用这么复杂了。
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 3 queries.