以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动编号的设置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10640)
--  作者：明丰
--  发布时间：2011/6/15 20:47:00
--  自动编号的设置问题
“编号”列根据“品牌”列内容自动生成编号，当“品牌”列内容重复时“编号”列为空，附件中“品牌”列的“联塑”如果修改为“天骄”，该行“编号”列没有被清空，请帮忙修改，谢谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试17.table
--  作者：狐狸爸爸
--  发布时间：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