- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何分类全表和表中部分数据排序 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60142)
-- 发布时间：2014/11/19 9:41:00
-- 如何分类全表和表中部分数据排序
小白请教专家：
感谢！
-- 发布时间：2014/11/19 9:51:00
--
http://www.foxtable.com/help/topics/2382.htm
-- 发布时间：2014/11/19 9:56:00
--
Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
If drs(i)("总分") <> pzf Then
drs(i)("年名") = i + 1
pzf = drs(i)("总分")
Else
drs(i)("年名") = drs(i-1)("年名")
End If
Next
drs = dt.Select("", "班级, 总分 desc")
pzf = 0
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
If drs(i)("班级") <> pbj Then
pbj = drs(i)("班级")
pmc = 1
End If
If drs(i)("总分") <> pzf Then
drs(i)("班名") = pmc
pmc += 1
pzf = drs(i)("总分")
Else
drs(i)("班名") = pmc
End If
Next
-- 发布时间：2014/11/19 15:37:00
--
还是搞不懂啊，应该在哪个事件中添加这段代码呢？我试的都没用啊，排序都没出来
-- 发布时间：2014/11/19 15:39:00
--
http://www.foxtable.com/help/topics/0213.htm
-- 发布时间：2014/11/19 15:40:00
--
不会没出来 可以参考CaseStudy目录下的文件： 成绩排名.Table
-- 发布时间：2014/11/19 17:37:00
--
感谢！
-- 发布时间：2014/11/19 17:42:00
--
Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
If drs(i)("总分") <> pzf Then
drs(i)("年名") = i + 1
pzf = drs(i)("总分")
Else
drs(i)("年名") = drs(i-1)("年名")
End If
Next
drs = dt.Select("", "班级, 总分 desc")
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
If drs(i)("班级") <> pbj Then
pbj = drs(i)("班级")
pmc = 1
pzf = 0
End If
If drs(i)("总分") <> pzf Then
drs(i)("班名") = pmc
pzf = drs(i)("总分")
Else
drs(i)("班名") = drs(i-1)("班名")
End If
pmc += 1
Next
-- 发布时间：2014/11/19 18:51:00
--
问题解决！小白特别感谢甜点！
