Foxtable(狐表)用户栏目专家坐堂 → 字母如何递增?


  共有2214人关注过本帖树形打印复制链接

主题:字母如何递增?

帅哥哟,离线,有人找我吗?
1669607010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
字母如何递增?  发帖心情 Post By:2020/12/3 10:18:00 [只看该作者]

有一个序号列用大写字母表示,新增行时如何自动递增填充,就比如说。第一行序号列的值为A,新增一行是序号列自动填入B,以此列推,哪位老师指导一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/3 10:32:00 [只看该作者]

Dim str() As String = {"A","B","C","D"}

Dim r As Row = Tables("汽车").Current
Dim k As Integer = Array.IndexOf(str,r("第三列"))
r = Tables("汽车").AddNew
r("第三列") = str(k+1)

 回到顶部