excel - 无法在 Excel 2016 上将 Null 值添加到列表框，但我可以在 Excel 2019 上

Question

这是怎么回事？
尝试将 Null 记录集值添加到列表框时出现以下错误:

那是我的代码:

With LiBxCliFor
 
 .ColumnCount = 4
 .ColumnHeads = False
 .ColumnWidths = "40;250;120;40"
 
 LinhaLiBx = .ListCount
 
 While Not lrs.EOF
 
 .AddItem
 
 .List(LinhaLiBx, 0) = lrs.Fields("ID_CliFor")
 .List(LinhaLiBx, 1) = lrs.Fields("Nome")
 .List(LinhaLiBx, 2) = lrs.Fields("NumDocumento")
 .List(LinhaLiBx, 3) = lrs.Fields("LocalVenda")
 
 LinhaLiBx = LinhaLiBx + 1
 lrs.MoveNext
 Wend
 End With

该行发生错误，因为值为空:

真正的问题是我在 Office Professional Plus 2019 上开发了我的所有代码，我根本没有收到这个错误。在我的版本中，列表框接受 Null 值，但我的客户在家用机器上使用 Office Professional Plus 2016 并收到该错误(他在办公室获得了另一个版本，也没有收到任何错误)
Office 2019 接受 Null 的版本和列表框之间是否有更新？
谢谢你的帮助

Answer 1

您应该尝试让您的代码在两个版本的 Excel 上都可以工作。这将是一种方式:-

Dim V As Variant

V = lrs.Fields("LocalVenda")
.List(LinhaLiBx, 3) = IIf(IsNull(V), "", V)

更短的方法可能是(“可能”，因为我没有测试)在赋值之前加上 On Error Resume Next我希望在发生错误时将列表项留空。