主题：求一对比小程序

 

 

Dim alst As List(of String) = DataTables("表A").getuniquevalues("","人员")  ‘获取表A人员集合

Dim blst As List(of String) = DataTables("表B").getuniquevalues("","人员")  ‘获取表B人员集合

 

Dim aybmy As new List(of String)    ’定义A有B没有人员的集合

Dim ayby As new List(of String)      ’定义A有B也有人员的集合

Dim anm,bnm As String

 

For Each anm In alst    ‘遍历表A人员集合，获得A有B没有和 A有B也有的人员集合

If blst.contains(anm) = False Then

        aybmy.add(anm)

    Else

        ayby.add(anm)

    End If

Next

 

Dim byamy As new List(of String) 

For Each bnm In blst        ‘遍历表B人员集合，获得B有A没有的人员集合

    If alst.contains(bnm) = False Then

        byamy.add(bnm)

    End If

Next

 

Dim v,v1,v2,v3 As Integer

V1=aybmy.count

V2=ayby.count

V3=byamy.count

V = Math.max(Math.max(v1,v2),v3)       ’在3个集合中，找到最大的集合数

messagebox.Show(v)

Dim dtb As new datatablebuilder("人员比较表")   '生成一个查询表并填充人员

Dim dt As DataTable

Dtb.adddef("A有B没有",Gettype(String),16)

Dtb.adddef("A有B也有",Gettype(String),16)

Dtb.adddef("B有A没有",Gettype(String),16)

Dt = Dtb.build()

     .

     .

     .

  拜托楼主一件事：以后上传，请以商业版做示例哈！！！！！！！

 

已测试，人员对比表的小例子

此主题相关图片如下：人员截图.png

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

点击浏览该文件:人员对比表.table