Ms access 相当于VBA的EndL

因此，我正在构建字符串，我希望它与每个条目一起逐行组织。简单地说，在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++的人，我会举例说明我想做的事情。说切克图萨、切克图萨和切克弗里亚都是真的。我希望additionStrings输出如下所示：

Tuesday
Thursday
Friday

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")

vbLf（Lf=线路馈电）

---

假设输出是一个由换行符分隔的字符串，而不是一个数组，我只需编写如下函数：

Tuesday
Thursday
Friday

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")

这样称呼：

Tuesday
Thursday
Friday

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")

---

使用

VBNewLine

或

VBLf

返回新行。

VBA为

Chr（13）和Chr（10）

回车和更简单的

Chr（10）

换行都内置了常量。它们分别是

vbCrLf

和

vbLf

。顺便说一句，这些字符串连接可能应该使用与（&）而不是加号（+）运算符。