[求助]如何判定窗口中的SQL table表的某一列存在重复值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何判定窗口中的SQL table表的某一列存在重复值

共有2313人关注过本帖树形打印复制链接主题：[求助]如何判定窗口中的SQL table表的某一列存在重复值

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/30 9:05:00 [显示全部帖子]

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/30 11:27:00 [显示全部帖子]

如果是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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/30 14:48:00 [显示全部帖子]

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

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

下一主题 >> << 上一主题

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