循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢

共有1549人关注过本帖树形打印复制链接主题：循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢

wyz20130512

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1249 积分：9468 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/4/30 13:58:00 [显示全部帖子]

Dim str As String

For i As Double = 0.1 To -0.01 Step -0.01

Dim st As String =Format(i,"0.00")

str = str + "|" + st

If e.IsFocusCell Then

If e.Col.Name = "第二列" Then

e.Col.ComboList = str.TrimStart("|")

End If

Output.Show(str.TrimStart("|"))

0.10|0.09|0.08|0.07|0.06|0.05|0.04|0.03|0.02|0.01|0.00|-0.01

[此贴子已经被作者于2017/4/30 14:00:01编辑过]

主题：循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢