VB中Excel导入listview的问题

listview是可将项目组成带有或不带有列标头的列，可以显示图标和文本。它不是列表控件，不能形成列表。

如果你需要将Excel导入到控件，建议你使用数据显示控件，例如：DataGri、MSFlexGrid之类的控件。

建议：

添加一个辅助数据： Cells(i, 6) = DTPicker1.Value & ComboBox2.Text & ComboBox1.Text

用作索引字段

然后在写入工作表之前，增加一个判断：

Dim rng as Range

Set rng = Columns(6).Find(DTPicker1.Value & ComboBox2.Text & ComboBox1.Text)

If rng is not nothing then

    Msgbox "记录已存在，不能提交!"

    Exit sub

End If

当然，也可以用字典对象来做，更简单。

还有，那段查找B列最后一个空单元的循环可以简化为一句代码，如下：

i = Range("B65536").End(xlUp).Offset(1,0).Row

List 控件的 RowSource 属性可以和工作表单元格关联，然后仿照前面判断重复的代码，进行记录的定位，然后进行修改并保存。

---