当字符串包含分号时，MS Access VBA AddItem

Posted 2023-05-07

【中文标题】当字符串包含分号时，MS Access VBA AddItem

【英文标题】：MS Access VBA AddItem when string contains semi-colons

【发布时间】：2010-11-09 15:46:08

【问题描述】：

要使用 AddItem() 将项目添加到多列列表框，我理解每列的文本应该用分号分隔。

但是如果要进入其中一列的文本已经包含分号会怎样？有没有办法逃避它，以便 AddItem() 从字面上对待它？目前，文本分布在两列中。

我在 MS Access 2003 中使用 VBA。相关的代码行如下所示： lstResults.AddItem (rstItems("[ItemID]") & ";" & rstItems("[Description]")) 并且 rstItems("[Description]") 本身包含一个分号。

【参考方案1】：

使用引号：

 """" & rstItems("[Description]")) & """"

【讨论】：

感谢您的回答。情况有所改善 - 它已停止换行到下一行的列上，但最后一列中的文本现在在分号处被截断。数据中的引号也有同样的问题。

您知道可以通过将行源类型设置为表/查询并将行源设置为 sql 字符串来避免这些问题，例如：SELECT ItemID, Description From Table?

我的测试没有出现截断。引号 (") 应替换为两个引号：Replace(rs!Description,"""","""""")