还有一个问题，刷新列表的时候，如何让根据统计值，例如印章字段值进行排序，让获得最多印章的人排在第一名？
For Each dr As DataRow In DataTables("学生信息").DataRows.
'从数据表中提取数据
Dim Key As String = dr("照片").Replace("//", "") '获取此员工的照片文件
lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
vr.ToolTipText = dr("服务类型") '设置此行的动态提示
vr.ImageKey = Key '设置图片键值
'For Each cl As String In cls '逐列取值
'vr(cl) = dr(cl)
'Next
'
vr("姓名") = "姓名:" & dr("姓名")
vr("空行") = ""
vr("团队名称") = "团队:" & dr("团队名称")
vr("空行2") = ""
vr("金币") = "金币:" & dr("金币")
vr("印章") = "印章:" & Tables("龙源宝藏").Compute("sum(午休)","姓名 = '" & dr("姓名") & "'")
Next
加好友 
发短信
Post By：2015/9/29 22:36:00 [显示全部帖子]
此主题相关图片如下：li7.jpg