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

http://www.foxtable.com/help/topics/0392.htm

http://www.foxtable.com/help/topics/1435.htm

Dim vals As List(of String) = DataTables("长期医嘱").GetUniqueValues(("[住院号] = '" & e.DataRow("住院号") & "'", "科室")

if vals.Count > 0 then

   messagebox.show("第一个值：" & vals(0))

end if

if vals.Count > 1 then

    messagebox.show("第二个值：" & vals(1))

end if

你提问的时候，设计一个简单的表，有科室、医生、开嘱日期三列，输入一些测试数据，这样别人回复起来就方便多了，否则都是蒙。

自己多做点，让帮助你的人少做点，其实得益的最终是你，因为可以快速解决问题：

GetUniqueValues也可以一次获得多个值的：

Dim vals As List(of String()) = DataTables("长期医嘱").GetUniqueValues(("[住院号] = '" & e.DataRow("住院号") & "'", "科室","开嘱日期","医生")
If vals.Count > 0 Then
   messagebox.show("科室:" & vals(0)(0) & "日期" & vals(0)(1) & "医生" & vals(0)(2))
End If
If vals.Count > 1 Then
   messagebox.show("科室:" & vals(1)(0) & "日期" & vals(1)(1) & "医生" & vals(1)(2))
End If