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

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

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

limit_1982

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

加好友

发短信

等级：幼狐帖子：134 积分：1809 威望：0 精华：0 注册：2015/12/5 19:21:00

循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢 发帖心情

Post By：2017/4/30 13:38:00 [只看该作者]

For i As Double = 0.1 To -0.01 Step -0.01
Dim st As String =Format(i,"0.00")
st = st.Replace(vbcrlf,"|")

    If i = 0.00 Then
        Exit For
    End If
    If e.IsFocusCell Then
        If e.Col.Name = "第二列" Then
            e.Col.ComboList = st
        End If
    End If
Next

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：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编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/2 8:41:00 [只看该作者]

If e.IsFocusCell Then
    If e.Col.Name = "第二列" Then
        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
        Next
        e.Col.ComboList = str.TrimStart("|")
    End If
End If

下一主题 >> << 上一主题

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