2017-02-13 76 views
-1

我需要一些帮助来创建一个通过列表字段的循环。循环访问列表字段

listfield:

lstPlanung 

功能:

Dim i As Integer 

    For i = 0 To Me!lstPlanung.ListCount - 1 

      Me!lstPlanung.Selected(i) = True 
      Call sendemailKunde 

    Next i 

是否有可能修改它选择我listfield的每个条目的循环?

+0

我不明白你的问题。您已经在列表中的每个条目上循环。你还想做什么? –

+0

我想按条目选择条目并为我列表中的每个选定条目调用一个函数。但在我看来,循环没有工作正确,因为我得到的输出只匹配我的列表框的第一个条目。 – rel0aded0ne

回答

0

目前尚不清楚。

这是你要做的吗?

Dim i As Integer 
dim strFoo as string 

For i = 0 To Me!lstPlanung.ListCount - 1 

     ' Get the current listbox item in the loop 
     strFoo = Me.lstPlanung.ItemData(i) 

     Call sendemailKunde 

Next i 

有了这个,strFoo将包含在你的循环每次迭代的列表框的元素。但你必须做些什么...