主题：[求助]请教如何查找第二个或最后一个不重复的字符串

此主题相关图片如下：未命名.jpg

问题如图

如：查找住院号为750的病人所在的科室。排除重复后找出第二个或最后一个不重复的科室名称。

有点想自动列表项目的排除。

诚望指点

如：第一次出现的不重复科室为“1病区”，第二次出现得不重复科室为“2病区”。

我的代码是：  

 Dim zk As  DataRow = DataTables("长期医嘱").Find("[住院号] = '" & e.DataRow("住院号") & "'","科室",1)