主题：增加行数据后，如何统计本次共增加了多数行。

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

 

 

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”  ，能不写的完整一点，提示： 本次共增加（）人次！！这样子

代码最后加上

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

参考：http://www.foxtable.com/webhelp/scr/0451.htm

执行排序代码后，其他部门都按降序排了，就这个 “高管层”，被两个部门分开了。
此主题相关图片如下：高管问题.png

数据有空格或者换行符的原因

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

 

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