以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99936)
--  作者：limit_1982
--  发布时间：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
--  发布时间：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
Next
If e.IsFocusCell Then
    If e.Col.Name = "第二列" Then
        e.Col.ComboList = str.TrimStart("|")
    End If
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编辑过]
--  作者：有点色
--  发布时间：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