主题：[求助]序列填充可以是中文的吗？

比如新增一行后，在序号列自动填入序号一，序号二，序号三。。。。。。。。

没有这种功能。之后要怎么弄？一、二、三 ...... 五十一、五十二.....六百七十一 这样？

你可以用代码处理的，但比较复杂，说明你具体的需求，需要一直生成编号？

不需要一直计数，就10到20个计数就够了

参考代码

 

Dim cs() As String = {"一", "二", "三", "四"}
Dim dt As DataTable = DataTables("表A")
Dim idx As Integer = 0
For i As Integer = cs.length-1 To 0 Step -1
    Dim fdr As DataRow = dt.Find("第一列 = '序号" & cs(i) & "'")
    If fdr  IsNot Nothing Then
        idx = i+1
        Exit For
    End If
Next
Dim ndr As DataRow = dt.addnew
ndr("第一列") = "序号" & cs(idx)