VB ListView 添加项时类型不匹配的问题

最新推荐文章于 2019-11-01 10:00:34 发布

上谷鹤

最新推荐文章于 2019-11-01 10:00:34 发布

阅读量2.1k

点赞数

文章标签： listview vb byte null date 终端

本文链接：https://blog.youkuaiyun.com/jwhndsc/article/details/3074966

版权

在VB中尝试将数据库查询结果填充到ListView时遇到类型不匹配的问题。错误发生在`lvpos.ListItems.Add`，尽管`lvpos.ListItems.Add`返回的应该是`ListItem`类型，但实际类型显示为`IListItem`，导致13号错误。通过删除`Dim lItem as ListItem`的显式声明，问题得到解决，但原因未明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据表
DEPTNAME VARCHAR2(20 BYTE),
POSID VARCHAR2(9 BYTE) NOT NULL,
OPERID VARCHAR2(9 BYTE) NOT NULL,
OPERNAME VARCHAR2(20 BYTE),
LOGTIME DATE NOT NULL,
LOGTYPE VARCHAR2(8 BYTE)
------------
想通过查询后把结果显示在listview中，

lvpos.ColumnHeaders.Add , , "网点名称"
lvpos.ColumnHeaders.Add , , "终端号"
lvpos.ColumnHeaders.Add , , "操作员号"
lvpos.ColumnHeaders.Add , , "操作员姓名"
lvpos.ColumnHeaders.Add , , "时间"
lvpos.ColumnHeaders.Add , , "签到/签退"

------------
Dim lItem as ListItem

Do While Not rec.EOF
Set lItem = lvpos.ListItems.Add(, , rec.Fields("DEPTNAME")) ‘可是这里报错 13 类型不匹配
lItem.SubItems(1) = rec.Fields("posid")
lItem.SubItems(2) = rec.Fields("operid")
lItem.SubItems(3) = rec.Fields("opername")
lItem.SubItems(4) = rec.Fields("logtime")
lItem.SubItems(5) = rec.Fields("logtype")
rec.MoveNext
Loop

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

我找了一个解决的方法问题是出在了显式声明 lItem

去掉 dim lItem as ListItem 之后就不报错了（13 Type mismatch）

可是我不知道原因是什么

lvpos.ListItems.Add(, , rec.Fields("DEPTNAME")) 返回的不也是 ListItem 类型吗

这和 lItem 怎么会类型不匹配呢

调试的时候 lvpos.ListItems.Add(, , rec.Fields("DEPTNAME")) 添加监视，发现类型是 IListItem ，这就奇怪了，难道类型不匹配是出在这里？