Access查询填充列表框时最后一列始终显示空白如何解决

这是Access列表框ColumnWidths（列宽）属性配置不匹配导致的典型问题，和SQL查询本身、VBA拼接逻辑无关：你当前列表框配置的列宽规则，要么总列数比查询返回的字段数少1，要么最后一列的宽度被设为0，因此无论SELECT语句最后一位放哪个字段，该列都会被自动隐藏显示为空白。
你单独运行查询能看到完整数据，已经可以排除数据源层面的问题。

• 手动配置修复（一劳永逸）

  1. 打开窗体的设计视图，选中名为lstSearch的列表框控件，按F4调出属性面板
  2. 切换到「格式」选项卡，找到ColumnWidths属性
  3. 按照你SELECT语句返回的9个字段，逐一设置列宽，值之间用英文分号分隔，确保最后一个值大于0，示例配置：

  2cm;2cm;1.5cm;1.5cm;2cm;2cm;2cm;2cm;1.5cm
  

  4. 保存窗体配置后重新运行即可正常显示最后一列内容。

• 代码动态适配（适合经常调整SELECT字段顺序的场景）
  在原有VBA代码给RowSource赋值的位置，补充列宽配置和刷新逻辑，修正后的代码片段如下：

  Private Sub cmdSearch_Click()
  Dim frm As Form, rs As Recordset
  Dim nb As String, cs As String, s As String, ss As String
  Dim od As String, cd As String, t As String, tt As String, st As String
  Dim sql_select As String, sql_from As String, sql_where As String
  
  sql_select = "SELECT nc.[Status], nc.[NC Number], nc.[Date_Open], nc.[CS_Build], nc.[Section], nc.[Sub-Section], nc.[TPS], nc.[TPS_Type], nc.[Date_Closed] "
  ' 移除未定义的sql_query变量拼接，避免SQL拼接错误
  sql_from = "FROM nc "
  sql_where = "WHERE " & nb & " And " & cs & " And " & s & " And " & ss & " And " & od & " And " & cd & " And " & t & " And " & tt & " And " & st & ";"
  
  ' 先清空原有行源避免缓存
  Me.lstSearch.RowSource = ""
  Me.lstSearch.RowSource = sql_select & sql_from & sql_where
  ' 配置和字段数匹配的列宽，最后一列预留足够显示宽度
  Me.lstSearch.ColumnWidths = "2cm;2cm;1.5cm;1.5cm;2cm;2cm;2cm;2cm;1.5cm"
  ' 强制刷新控件
  Me.lstSearch.Requery
  End Sub
  

你原有代码中拼接sql_from、sql_where时使用了未定义的sql_query变量，当前未报错属于变量初始值为空的巧合，建议按上述代码移除这部分多余拼接，避免后续出现SQL语法错误。

内容的提问来源于stack exchange，提问作者Jason