VBA Listview问题 [英] VBA Listview Question

问题描述

我对Listview控件有一个非常奇怪的问题。

基本上，我想查看电子表格，并在Listview中显示检查结果。以下是我的代码。

---------------------------------------------- -------------------------------------------------

Dim i As Integer
ListView1
.ColumnHeaders.Clear
.ListItems.Clear < br> .View = lvwReport
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add ,," Error No."，80
.ColumnHeaders.Add ,," Row No."，80
.ColumnHeaders.Add ,,,"Column No."，120
.ColumnHeaders.Add ,,"Origional Value"，300
.ColumnHeaders.Add ,," ;推荐值"，300

对于i = 1到NumError
.ListItems.Add ,, Str（i）
.ListItems（。 ListItems.Count）.SubItems（1）= Str（NumRowError（i））
.ListItems（.ListItems.Count）.SubItems（2）= NumColError（i）
.ListItems（.ListItems.Count）。 SubItems（3）= NumOriError（i）
.ListItems（.ListItems.Count）.SubItems（4）= NumRecError（i）
Next i
End With

--------------------------------- -------------------------------------------------- --------------------------

我第一次创建它时效果很好。但是，当我导入用户表单（此代码在命令按钮中）和模块与另一个excel电子表格时，运行结果如下：1 2 3 4 5 ...，这意味着它只显示错误号。并且网格线和标题甚至都没有显示出来。如果我删除了Listview控件，并添加了一个新的Listview控件，那么它再次运行良好。因此，每次我必须乘坐Listview控件，并添加一个新控件。有谁知道这是什么原因？非常感谢

推荐答案

你保存文件了吗？这听起来像是引用不正确或丢失，并在保存时重新创建。

Did you save the file? It sounds like references were incorrect or lost and were recreated on save.

ADT

这篇关于VBA Listview问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！