循环2个不同的列表框以形成一个字符串

时间:2014-05-19 05:56:38

标签: visual-studio vba loops

程序:Visual Studio 2013

设置:两个列表框(一个包含一组Firstnames,另一个包含LastNames)

示例数据:名字列表框:迈克尔,约翰,彼得               姓氏列表框:Smith,Doe,Allen

期望的输出:Michael Smith,John Doe,Peter Allen

目标:我需要同时遍历两个框并将每个列表框中的每个条目组合成一个字符串,并使该信息可用于另一个函数

我非常有限的方法:

Private Sub join_names(name As String)
    For j As Integer = 0 To LastName.Items.Count - 1

        MsgBox("NAME:" + name + LastName.Items(j))
        doSomething(name,lastName.Items(j))
    Next
End Sub

Private Sub MergeNames_Click(sender As Object, e As EventArgs) Handles MergeNames.Click
    For i As Integer = 0 To Firstname.Items.Count - 1
        join_names(Firstname.Items(i))
    Next
end sub

现在这不会产生预期的结果,但会产生:Michael Smith,Michael Doe,Michael Allen因为它无法在MergeNames_Click中定义的循环中继续循环。我该如何解决这个问题?

1 个答案:

答案 0 :(得分:0)

我不太明白为什么你使用2个循环,而我认为你只需要1来实现这个目标。

For i = 0 to FirstName.Items.Count - 1
    MsgBox("FIRST NAME: " + Firstname.Items(i) + ", LAST NAME: " + LastName.Items(i))
next i

从逻辑上讲,这不是你所需要的吗?