主题：多个填报人一起填报报表，如何实现新增行时，让“编号”按照“填报人”的本人顺序增加1。

多个填报人一起填报报表，如何实现新增行时，让“编号”按照“填报人”的本人顺序增加1。

表事件

工作日志基础数据_DataRowAdding

e.DataRow("部门") = User.Group

e.DataRow("填报人") = User.name

e.DataRow("日期") = Date.Today()

'e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

If User.Name <> "填报人" Then '如果"填表人"是"填报人"

    Dim ColNames As String() = {"填报人"} '定义一个数组,保存复制列的名称

    Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行

    For Each ColName As String In ColNames

        e.DataRow("编号") = dr("编号") + 1    'e.DataRow(ColName) = dr(ColName) 将最后一行的内容复制到新增行中.

    Next

End If