根据两列名称自动编码，重复值编同一个名称 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据两列名称自动编码，重复值编同一个名称

共有2081人关注过本帖树形打印复制链接主题：根据两列名称自动编码，重复值编同一个名称

wu725

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

等级：幼狐帖子：77 积分：996 威望：0 精华：0 注册：2012/2/6 16:33:00

根据两列名称自动编码，重复值编同一个名称 发帖心情

Post By：2016/5/27 22:01:00 [只看该作者]

判断男选手&女选手列，自动生成背号，如图：男选手&女选手如果是唯一依次自动编4位码，如果有完全重复名称，有多少都只编同一个编码。表名称“D报名表”请大家给个编码，谢谢

图片点击可在新窗口打开查看此主题相关图片如下：图片.png

Hyphen

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

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/5/28 9:38:00 [只看该作者]

Dim dict As new Dictionary(of String,String)

Dim idx As Integer = 1

With Tables("D报名表")

Dim key1 As String

For i As Integer = 0 To .Rows.Count - 1

key1 = .Rows(i)("男选手") & "|" & .Rows(i)("女选手")

If dict.ContainsKey(key1) Then

.Rows(i)("背号") = dict(key1)

Else

.Rows(i)("背号") = idx.ToString().PadLeft(4,"0")

dict.Add(key1,idx.ToString().PadLeft(4,"0"))

idx += 1

End If

End With

wu725

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

等级：幼狐帖子：77 积分：996 威望：0 精华：0 注册：2012/2/6 16:33:00

Post By：2016/5/28 16:04:00 [只看该作者]

非常实用，太感谢了！

主题：根据两列名称自动编码，重复值编同一个名称