数据表
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"