主题：[求助]如何判定窗口中的SQL table表的某一列存在重复值

例如窗口中的表有个 “单号“列，当此表通过 fill方法导入数据后，有个 “核查”按钮，此按钮中的代码可以审查单号列是否有重复值，如果发现重复，就弹出个提示框告知用户存在重复值，并且涉及重复单号的所在行背景色是 ”样式1”，样式1我会通过代码设定的。

1、drawcell事件

 

If e.table.findrow("单号 = '" & e.row("单号") & "' and _Identify <> " & e.row("_Identify")) >= 0 Then

    e.style = "样式1"

End If

 

2、按钮click事件

 

For Each r As Row In Tables("表A").rows
    If r.Table.findrow("单号 = '" & r("单号") & "' and _Identify <> " & r("_Identify")) >= 0
        msgbox("有重复值")
        Exit For
    End If
Next

窗口中通过以下代码生成的表也有 _Identify 字段吗？如果有，如何让此字段显示出来呢？我本来是准备加个行号字段到导入后的窗口表，这样哪条记录出问题了就提示用户“某某行出现了XXX问题”，如果有 _Identify 字段我就不用增加行号字段了

如果是excel表格的数据，不会有_Identify字段的，你这样处理，动态加入一列

 

 

If e.Sender.Text > "" Then
    Dim t As Table = e.Form.Controls("Table1").Table
    t.fill("Select 0 as 序号,* from [" & e.Sender.Text & "]", "test", True)
    For Each r As Row In t.rows
        r("序号") = r.index + 1
    Next
End If

S elect 0  是什么意思，这个为 0 的字段是哪来的？我目前的做法全是用：

select 0 as 序号, '' as 第一列 这样也是相当于新增一列。

 

 

你用什么方法都可以，能达到目的即可。