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

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

 

 

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

返回值是  1 ？

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

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

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

不是空值问题，就这个一个人脱离了部门排列，其他的都没问题~

长度是255，就这一行跟自己部门脱节的。
此主题相关图片如下：长度.png

这段代码是增加本期工资的人员名单， 如果我想加入不能导入重复的“姓名”和“年份”、“月份”的代码，要怎么弄呢？ 

  Select Case e.DataCol.name
    Case "姓名","月份","年份"
        Dim xm As String
        Dim yf As String
        If e.DataCol.Name= "姓名" Then
            xm = e.NewValue
            yf = e.DataRow("月份")
        Else
            gg = e.NewValue
            nf = e.DataRow("年份")
        End If
        If xh > "" AndAlso gg  > "" Then 
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("姓名 = '" & xh & "' And 月份 = '" & gg & "'"And 年 = '" & gg & "'") IsNot Nothing Then
                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
End Select