[求助]请教如何查找第二个或最后一个不重复的字符串 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教如何查找第二个或最后一个不重复的字符串

共有11237人关注过本帖树形打印复制链接主题：[求助]请教如何查找第二个或最后一个不重复的字符串

e-png

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/8/30 23:34:00 [只看该作者]

你这里不能用 GetUniqueValues ，最好用 Select 。

czy

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/8/30 23:38:00 [只看该作者]

Dim Val() As String = DataTables("长期医嘱").GetComboListString("科室","[住院号] = '" & e.DataRow("住院号") & "'"","_Identify").Split("|")
If Val.Length > 1 Then
Dim st As String = DataTables("长期医嘱").GetComboListString("开嘱日期","[住院号] = '" & e.DataRow("住院号") & "'" And 科室 = '" & Val(1) & "'","_Identify")
MessageBox.Show(st.Split("|")(1))
End If

狐狸爸爸

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/31 10:22:00 [只看该作者]

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

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

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

[此贴子已经被作者于2011-8-31 10:22:09编辑过]