主题：[求助]如何设置列公式,达到自动编号

手工输入编号，简单实用。
即使你要输入1000行，利用填充可以一秒钟完成输入。

同样在在DataRowAdding事件中：

With e.DataTable
    If .DataRows.Count > 0 Then
        e.DataRow("受案编号") = .DataRows(.DataRows.Count - 1)("受案编号") + 1
     End If
End With

每年的第一个编号手工输入即可。

建议您先看两次帮助，这样可能会更有效果一点。

当然，你可以自己加入一个条件，如果年份相同，就加1，否则等于1，这样就能完全自动了。