- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何检索表内不重复项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109579)
-- 发布时间：2017/11/15 11:02:00
-- [求助]如何检索表内不重复项目
一个页面内，在输入框输入字段姓名，检索出表内姓名相同的字条，但是不能有重复项目（表内有“姓名”“病历号”“电话”三个字段，也就是说，检索出的项目姓名相同，但电话相同的，病历号相同的都筛选掉）
-- 发布时间：2017/11/15 11:18:00
--
在后面加上代码
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "姓名,病历号,电话"
Dim t As Table = Tables("内加工录入小窗口_Table1")
For Each dr As DataRow In t.DataTable.Select(t.filter, cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
End If
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
idx_temp &= dr("_Identify") & ","
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
t.filter = "_Identify not in (" & idx.trim(",") & ")"
-- 发布时间：2017/11/15 16:31:00
--
好像您写的代码有问题
-- 发布时间：2017/11/15 16:35:00
--
count += 1
等同于 count = count + 1
If flag Then
等同于 If flag = true Then
如果有问题，上传具体例子说明
-- 发布时间：2017/11/15 17:19:00
--
后来我在想，系统不是有一个命令 Syscmd.Filter.HideSameValues() 排除重复值
-- 发布时间：2017/11/15 17:27:00
--
参考
http://www.foxtable.com/webhelp/scr/2712.htm
-- 发布时间：2017/11/16 9:56:00
--
谢谢 版主
-- 发布时间：2017/11/16 21:23:00
--
版主，我再请教一个问题；
-- 发布时间：2017/11/16 21:47:00
--
直接生成查询表即可
http://www.foxtable.com/webhelp/scr/2321.htm
-- 发布时间：2017/11/17 17:37:00
--
理解了
- UpdatePath
字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。