Question

VB Listview 添加数据问题

dim Itm as ListItem

Set Itm = LW0.ListItems.Add(, "Row" & LW0.ListItems.Count + 1, LW0.ListItems.Count + 1)

Itm.SubItems(1) = "" & RS!TNub
Itm.SubItems(2) = "" & RS!VNUB
Itm.SubItems(3) = "" & RS!TXNAM
Itm.SubItems(4) = "" & RS!TALL1

LW0是个Listview，控件是 5.0的 因为需要XP样式效果， 添加数据时总是提示 “类型不匹配”，如果是 6.0控件没问题。 不知道到底怎么搞的，我单独创建个工程 只有一个窗口 这样添加个5.0的测试也没问题(就是上面的代码测试)，但是 用到我的工程中就出错！ 有高手没!指点指点，谢谢！

Answer 1

把 dim Itm as ListItem 改成 dim Itm 就行了

问题所在是你工程中同时应用的有 5.0和6.0版同时存在。 让系统自适应去就是了。

代码没什么问题。