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

 在后面加上代码

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

1、你要把信息保存在表格里面才行，你按钮的代码给表格赋值存放升级路径。

你升级之前，读取表格的数据，设置给 UpdatePath，如

UpdatePath = 某表某个单元格值

Syscmd.Project.Update

2、只有foxtable版本变化，才会执行【完整升级】。升级时，只会覆盖你升级包里面有的内容。

你的数据库如果是access，你如果放在升级报里面，就会拷贝过去，如果没有放进去，就不会拷贝覆盖；如果是内部数据源，就直接覆盖原来的了。

如果你是access数据库或者内部数据源，会覆盖掉同名的文件，那么数据库就替换成你升级包的那个数据库了、当然数据也覆盖了。

升级包尽量不要修改表结构，不然很麻烦。