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
