以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 字母如何递增? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158810) |
-- 作者:1669607010 -- 发布时间:2020/12/3 10:18:00 -- 字母如何递增? 有一个序号列用大写字母表示,新增行时如何自动递增填充,就比如说。第一行序号列的值为A,新增一行是序号列自动填入B,以此列推,哪位老师指导一下 |
-- 作者:有点蓝 -- 发布时间: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)
|