- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 根据条件赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142443)
-- 发布时间：2019/10/27 20:13:00
-- 根据条件赋值
我想设计一个报名表，根据男选手列&女选手列，排序后依次赋值，如果出现同样名字赋同一背号
此主题相关图片如下：上传.png
-- 发布时间：2019/10/27 21:05:00
--
类似
Dim i As Integer = 1
Dim dict As new Dictionary(of String,String)
For Each r As Row In Tables("报名表").rows
Dim s As String
If r.isnull("男选手") = False Then
s = r("男选手")
Else
s = r("女选手")
End If
If dict.ContainsKey(s) Then
r("背号") = dict(s)
Else
r("背号") = Format(i,"0000")
dict.Add(s,r("背号"))
i += 1
End If
Next
如果是我，会增加一个性别列，然后男女选手姓名都放到同一个“姓名列”即可。