是呀,这次只是想匹配出不同名的人的部门,重名人员毕竟是少数,这次先手动处理,下次在表中增加一个唯一的编号,便于以后自动处理,麻烦老师设计这个功能怎么用命令代码实现。想先用一个条件判断一下,是否唯一。
Dim dr1 As DataRow = Tables("积分").Current.DataRowoutput.Show("人员基础表中:" & dr1("姓名") & DataTables("人员基础表").Select("姓名 = '" & dr1("姓名") &"'").
这个命令能显示查询的符合姓名相同的记录有几个了,这个应该能用于条件判断。
但这个循环处理代码应该怎么设计?