If e.Book.TempLate = "出入库流水账" Then 'TempLate是指模板文件的名称
If CurrentTable.name = "出入库"
If user.group = "财务" OrElse user.group = "行政" OrElse user.name = "开发者" Then
For r As Integer = 1 To Tables("出入库").rows.count
Dim dr As Row = Tables("出入库").Rows(r)
dr("自然顺序号") = r
Next
End If
End If
End If
以上代码放在报表事件的beforebuild里面,执行之后,连"自然顺序号"这个列名都被改为最大的那个r值了。请问是哪里的问题呢?