[求助]如何进行动态参数设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

另外你这段代码,每次DataColChanged都执行,无论改变的是哪个列, 效率太差了吧.

'获得所有班级名称,保存在集合中

Dim bjs As List(Of String) = DataTables("笔试成绩").GetValues("职位代码")

For Each bj As String In bjs

'获得该班级的全部行,按总分降序排序

Dim drs As List(Of DataRow) = DataTables("笔试成绩").Select("[职位代码] = " & bj, "面试成绩 DESC")

For n As Integer = 0 To drs.Count - 1 '遍历所有行

If n > 0 AndAlso drs(n)("面试成绩") = drs(n-1)("面试成绩") Then '如果总分和上一行相同

drs(n)("面试排名") = drs(n-1)("面试排名") '则排名等于上一行

Else

drs(n)("面试排名") = n + 1 '设置排名

End If

主题：[求助]如何进行动态参数设置