那就将全局变量类型改为Integer,这样可以自由切换,任由用户自由设置都可以比如:
vars("YXJB") as Integer = 0
按钮代码:
dim s as String = "A,B,C,D,E,F,O"
Dim Values() as String
Values = Multi.split(",")
CurrentTable.Current("意向级别") = Values(vars("YXJB"))
if vars("YXJB") = s.Length- s.Replace(",","").Length+1
vars("YXJB") = 0
else
vars("YXJB") = vars("YXJB") +1
end if
这样,可以循环切换并设置了