主题：[求助]如何检索表内不重复项目

 在后面加上代码

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(",") & ")"

count += 1

 等同于  count = count + 1

If flag Then

 等同于 If flag = true Then

如果有问题，上传具体例子说明

 参考

http://www.foxtable.com/webhelp/scr/2712.htm

直接生成查询表即可

http://www.foxtable.com/webhelp/scr/2321.htm

• UpdatePath
  字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。