自动编号的设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动编号的设置问题

共有10741人关注过本帖树形打印复制链接主题：自动编号的设置问题

明丰

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

加好友

发短信

等级：二尾狐帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00

自动编号的设置问题 发帖心情

Post By：2011/6/15 20:47:00 [只看该作者]

“编号”列根据“品牌”列内容自动生成编号，当“品牌”列内容重复时“编号”列为空，附件中“品牌”列的“联塑”如果修改为“天骄”，该行“编号”列没有被清空，请帮忙修改，谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试17.table

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/6/15 21:49:00 [只看该作者]

'要清除编号,可以改一下代码:
If e.DataCol.Name = "品牌" Then
    Dim dr As DataRow
    Dim Filter As String
    dr = DataTables("表A").Find("品牌 = '" & e.newValue & "'")
    If dr IsNot Nothing Then '如果找到的话
        If dr("_Identify") <> e.DataRow("_Identify") Then
            e.DataRow("编号") = Nothing
            Return
        End If
    End If
End If

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

主题：自动编号的设置问题