代码如下，在代码后面，怎么显示增加了多少人的信息？

If DataTables("员工信息表").DataRows.Count<1
    MessageBox.Show("请先在 <员工信息表> 中添加本期计时工资发放人员的姓名,且身份证号不能重复!","提示")
    MainTable = Tables("员工信息表")
Else
    If Tables("计时工资库").RowS.Count<1
       
        Tables("计时工资库").StopRedraw
        For Each I As DataRow In DataTables("员工信息表").Select("岗位类别=\'计时\'")
            Dim DR As Row = Tables("计时工资库").AddNew
            DR("姓名") = I("姓名")
            dr("身份证号码") = i("身份证号码")
            dr("入司日期") = i("入司日期")
            dr("部门") = i("部门")
            dr("职务") = i("职务")
            dr("司龄") = i("司龄")       

       \'
  Dim dr1 As DataRow = DataTables("其他薪级表").Find("姓名 = \'" & i("姓名") & "\'")\'通过《其他薪级表》,根据姓名引用岗位工资
            If dr1 Is Nothing Then
  Dim nd As DataRow = DataTables("岗位薪级表").Find("职务 = \'" & i("职务") & "\'")\'通过《岗位薪级表》,根据职务引用岗位工资
                If nd IsNot Nothing Then
                    dr("岗位工资") = nd("岗位工资")
                    dr("保密津贴") = nd("保密津贴")
                End If
            Else
                dr("岗位工资") = dr1("岗位工资")
                dr("保密津贴") = dr1("保密津贴")
            End If
          Next
        Tables("计时工资库").ResumeRedraw
    End If
End If

循环外面，Dim Count As Integer = 0

循环里面，count = count + 1

最后 msgbox(count)

返回值是  1 ？

版主，按你的代码输出的 值为  “1”  ，能不写的完整一点，提示： 本次共增加（）人次！！这样子

如果我还想在增加之后，按“部门”排列，要怎么调整代码呢？

你赋值的时候，把前后的空格去掉，如代码

dr("部门") = i("部门").Trim()