主题：[求助]能不能通过代码自定义数据填充

我要填充的数据形式如下：

参考代码

 

Dim max As String = DataTables("表A").Compute("max(第一列)")
If max > "" Then
    max = max.SubString(0, max.Length-1) & chr(Asc(right(max,1))+1)
Else
    max = "CS1400001A"
End If

msgbox(max)

代码是看懂了，但不知如何实施，我是准备做个菜单按钮，把代码放里面，老师能不能写个相关代码，用的方法与系统自带的序列填充方法类似。

Dim max As String = CurrentTable.Current(CurrentTable.ColSel)
For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
    If max > "" Then
        max = max.SubString(0, max.Length-1) & chr(Asc(right(max,1))+1)
    Else
        max = "CS1400001A"
    End If
    CurrentTable.Rows(i)(CurrentTable.ColSel) = max
Next

 

哈哈，搞定了，狐表真强大，老师真行，这个功能之前在EXCEL一直实现不了，现在可以省心多了。