1、你的程序combo5已经完成不同人员总数统计
sql = "select distinct 姓名 from 考勤"
rst.Open sql, conn, adOpenKeyset, adLockOptimistic
Combo5.Clear
Do While Not rst.EOF
Combo5.AddItem (Trim(rst(0)))
rst.MoveNext
Loop
2、笨方法。
根据combo5的人员姓名,在数据库中遍历一遍数据库,完成人员、工作时间、加班、等信息统计到二维数组或者数据控件