主题：怎样让“确定”按钮起作用

12楼的问题没看懂，你这个结果是既定的吗？是不是1到18名都按上述要求赋值？

赋分基本无规律可循，如果是既定的名次和赋分值，可以这样试试：

Dim Values() As String = "7|6.6|6.2|5.8|5.4|5.2|4.6|4.2|3.8|3.5|3.3|2.9|2.5|2.1|1.7|1.3|0.9|0.5".split("|")
Tables("班主任成绩表").sort="总积分 Desc"
for i as Integer = 0 to Values.Length - 1
  DataTables("班主任成绩表").datarows(i)("班主任本人赋分") = Val(Values(i))
next