关于ListView控件的问题。。（有图）

wmok

为何这段代码老是提示“要求对象”？？？



Public Function ListreQuery()
  List0.ListItems.Clear
  
  Dim syRecset As DAO.Recordset
  Dim itemX As ListItem
  Dim i As Integer
  Dim strSQL As String
  
  If Node.Key = "a" Then
  strSQL = "SELECT 工号,姓名,上班日期,员工状态 FROM 员工资料; "
  Else
  If Node.Key Like "aa*" Then
  strSQL = "SELECT 工号,姓名,上班日期,员工状态 FROM 员工资料 where 所属部门ID=" & Mid(Node.Key, 3, 8)
  Else
   If Node.Key Like "aaa*" Then
  strSQL = "SELECT 工号,姓名,上班日期,员工状态 FROM 员工资料 where 所属组别ID=" & Mid(Node.Key, 4, 9)
  End If
  End If
  End If
  
Set syRecset = CurrentDb.OpenRecordset(strSQL)

If syRecset.RecordCount > 0 Then
syRecset.MoveFirst

Do Until syRecset.EOF
         
       Set itemX = List0.ListItems.add()
      
      i = Right(syRecset!工号, 1)  '设置list头的图标
      ' a = 1
       itemX.SmallIcon = i              '设置list头的图标
       itemX.Icon = i                   '设置list头的图标
       itemX.Text = syRecset!工号                '设置list列表的第一个栏位名
       itemX.SubItems(1) = syRecset!姓名         '设置list列表的第二个栏位名
       itemX.SubItems(2) = syRecset!上班日期     '设置list列表的第三个栏位名
       itemX.SubItems(3) = syRecset!员工状态     '设置list列表的第四个栏位名
       syRecset.MoveNext
Loop
Set syRecset = Nothing
End If

End Function

wmok

WDLRCZT

把附件传上来，便于调试

andymark

把例子传上来

wmok

好

wmok

andymark

员工资料的表有些数据不齐，你再在这的基础修改一下

wmok

您是说有些员工没有“组别”，是吧？可这个员工资料表原始数据就是如此啊，有些部门（如：管理部）下面是不分组别的。。。。。

wmok

总是提示“参数不足，期待是2”。。。。

看不懂是什么意思啊。。。。帮忙再看看啊。。。

andymark

是因为你的select 语句得不能数据,更改select 语句(你看看员工资料的表对比一下你的ＳＥＬＥＣＴ)