您应该问自己是否需要一个通用解决方案(另一个是 Allen Browne 提出的),或者您是否只需要它用于当前目的。如果您确实只需要一次,请采用简单的方法。
附带说明一下,在 VBA 代码中连接列表时,请利用长期 Access 大师 Trevor Best 教给我的技巧,即将分隔符放在每个值的开头,然后使用 Mid() 删除它离开。而不是在子记录的循环中这样做:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
Run Code Online (Sandbox Code Playgroud)
...在循环中使用它:
strOutput = strOutput & ", " & NewValue
Run Code Online (Sandbox Code Playgroud)
...然后当退出循环时,去掉前导分隔符:
strOutput = Mid(strOutput, 3)
Run Code Online (Sandbox Code Playgroud)
这对所有地方都有影响,并简化了整个上下文中的串联代码。
| 归档时间: |
|
| 查看次数: |
19597 次 |
| 最近记录: |