结构数组如何进行去除及合并?

有一自定义结构:
    Public Structure portship
        Public shipname As String
        Public shipvlsI As String
        Public shipvlsE As String
        Public DockPlan As Date
        Public DockFact As Date
        ...
    End Structure

在程序中定义了一个数组:
   Dim p() As portship 
并且得到了一组数据.

可是按照逻辑发现部分有重复的数据,想根据
(p.shipname 和p.shipvlsI )
或者(p.shipname 和p.shipvlsE)
进行逻辑判断,合并相同的记录,去除多余的,请问怎么处理?



--------------------编程问答-------------------- 循环
或者用DataTable --------------------编程问答-------------------- 把可能重复的选项设置一个新的Structure，用HashTable存储，存之前，判断Key
是否存在 --------------------编程问答-------------------- 能否给个例子学习一下. --------------------编程问答-------------------- 不知道你数组里面是什么数据

定义一个OBJECT类型


假设
p(0)=DockPlan 
p(1)=shipname 
p(2)=shipvlsI 
dim i as integer
dim j as integer
for i=0 to 2
   for j=1 to i-1
     if(p(j)=p(i))then
        p(j).remove(j)
     endif
   next
next  
不知道写得对不对 --------------------编程问答-------------------- dim sp as portship 
for each ap in p 

next 
上面是循环了.如果你确定要用这个可能要循环两次..
下面是哈稀表.
    Sub add()
        Dim h As Hashtable
        Dim p As portship
        If h.ContainsKey(p.shipname) = False Then
            h.Add(p.shipname, p)
        End If


    End Sub --------------------编程问答-------------------- 学习...

补充：.NET技术 ,  VB.NET