以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串+数字，怎样做序列填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150468)
--  作者：yfy13338431925
--  发布时间：2020/5/30 17:33:00
--  字符串+数字，怎样做序列填充
蓝老师：
北山风景（1）
北山风景（2）
北山风景（3）
青芝山晚霞风光（1）
青芝山晚霞风光（2）
青芝山晚霞风光（3）
按钮怎样做序列填充？

[此贴子已经被作者于2020/5/30 17:35:01编辑过]
--  作者：有点蓝
--  发布时间：2020/5/30 17:38:00
--  
dim s as string = "北山风景"
for i as integer = 1 to 3
    msgbox(s & "(" & i & ")")
next
--  作者：chnfo
--  发布时间：2020/5/30 20:02:00
--  
e.table.sort = "A"
e.table.rows(0)("B") = e.table.rows(0)("A") & 1

dim k as integer = 0

if e.table.rows.count > 1 then
for i as integer = 2 to e.table.rows.count - 1 
if e.table.rows(i)("A") = e.table.rows(i-1)("A")  then 
K += 1
else
k = 1
end if 

e.table.rows(i)("B")  = e.table.rows(i)("A") & k
next
end if 

用do loop也可以
[此贴子已经被作者于2020/5/30 20:09:41编辑过]