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


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

主题:字母如何递增?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望: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)

 回到顶部