以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]能不能通过代码自定义数据填充  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62338)
--  作者：huangfanzi
--  发布时间：2014/12/30 10:03:00
--  [求助]能不能通过代码自定义数据填充
我要填充的数据形式如下：
CS1400001A
CS1400001B
CS1400001C
CS1400001D
CS1400001E
CS1400001F

是最后一个英文字母的填充，不会超过Z，老师能有代码实现这个功能吗？
--  作者：有点甜
--  发布时间：2014/12/30 10:08:00
--  

参考代码

 

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)
--  作者：huangfanzi
--  发布时间：2014/12/30 10:12:00
--  
代码是看懂了，但不知如何实施，我是准备做个菜单按钮，把代码放里面，老师能不能写个相关代码，用的方法与系统自带的序列填充方法类似。
--  作者：有点甜
--  发布时间：2014/12/30 10:17:00
--  

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

 
--  作者：huangfanzi
--  发布时间：2014/12/30 10:22:00
--  
哈哈，搞定了，狐表真强大，老师真行，这个功能之前在EXCEL一直实现不了，现在可以省心多了。