以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  人员对比如何显示出新增或减少人员  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23952)

--  作者:181741400
--  发布时间:2012/9/25 15:09:00
--  人员对比如何显示出新增或减少人员

例:列A有人员姓名 700人,列B 有人员姓名650人,想在列C显示出列B中缺少的姓名,如何实现?????在线等


--  作者:lin_hailun
--  发布时间:2012/9/25 15:20:00
--  
Dim names1 As List(Of String) = DataTables("表").GetUniqueValues("", "列A")
Dim names2 As List(Of String) = DataTables("表").GetUniqueValues("", "列B")
Dim names3 As New List(Of String)
For Each name As String In names1
    If Not names2.Contains(name) Then
        names3.add(name)
    End If
Next

For i As Integer = 0 To names3.Count - 1
    Tables("表").Rows(i)("列C") = names3(i)
Next
[此贴子已经被作者于2012-9-25 15:57:31编辑过]

--  作者:lin_hailun
--  发布时间:2012/9/25 15:58:00
--  
 已经做了例子。

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


--  作者:181741400
--  发布时间:2012/9/25 16:55:00
--  
非常感谢,非常好用