主题：列表中增加一行空行

Dim s As String '引用列名作为列表'

s = "| "
For Each dc As DataCol In DataTables("货品资料").DataCols
    s = s & "|" & dc.name
Next