主题：[求助]新手求助

是呀，这次只是想匹配出不同名的人的部门，重名人员毕竟是少数，这次先手动处理，下次在表中增加一个唯一的编号，便于以后自动处理，麻烦老师设计这个功能怎么用命令代码实现。想先用一个条件判断一下，是否唯一。

Dim dr1 As DataRow = Tables("积分").Current.DataRow
output.Show("人员基础表中:" & dr1("姓名") & DataTables("人员基础表").Select("姓名 = '" & dr1("姓名")  &"'").

这个命令能显示查询的符合姓名相同的记录有几个了，这个应该能用于条件判断。

但这个循环处理代码应该怎么设计？

谢谢，这段代码的信息量太大了，我看得有点晕，但功能实现了，再次感谢!

        dr("部门") = drs(0)("单位/部门")

最后想问问，为什么要多个红色部分的 （0）呀！