相当于VBA的EndL

时间:2015-01-30 15:42:19

标签: vba access-vba

所以我建立了一个字符串,我希望它与每个条目一行一行地组织起来。那么简单地说,在VBA中,EndL的等价物是什么?

这是我的代码:

If chkMonA = True Then
    additionString = additionString + "Monday"
End If
If chkTuesA = True Then
    additionString = additionString + "Tuesday"
End If
If chkWedA = True Then
    additionString = additionString + "Wednesday"
End If
If chkThursA = True Then
    additionString = additionString + "Thursday"
End If
If chkFriA = True Then
    additionString = additionString + "Friday"
End If

对于那些不了解任何C ++的人,我将举例说明我想要做什么。说chkTuesA,chkThursA和chkFriA都是真的。我希望additionStrings输出看起来像这样:

Tuesday
Thursday
Friday

3 个答案:

答案 0 :(得分:1)

vbLf(Lf =换行)

additionString = additionString + "Monday" + vbLf

答案 1 :(得分:1)

假设输出是一个由换行符分隔的字符串而不是数组我只想写一个这样的函数:

Function AddToString(byval sAdditionString as string, sDay as string) as String

Dim sReturn as String

sAdditionString = iif(sAdditionString="", _
  sReturn = sDay, sReturn = sAdditionString & vbNewLine & sDay)

AddToString = sReturn

end function

并且这样打电话:

additionString = AddToString(additionString,"Monday")

答案 2 :(得分:1)

使用VBNewLineVBLf返回新行。