要编写datacolchanged事件.代码类似
If e.DataCol.name = "预测位次" Then
Dim ldr As DataRow = DataTables("表3").find("当年位次 <= '" & e.DataRow("预测位次") & "'", "当年位次 desc")
Dim mdr As DataRow = DataTables("表3").find("当年位次 >= '" & e.DataRow("预测位次") & "'", "当年位次")
If e.DataRow("预测位次") - ldr("当年位次") <= mdr("当年位次") - e.DataRow("预测位次") Then
e.DataRow("最接近位次") = ldr("当年位次")
e.DataRow("预测分数") = ldr("当年分数")
Else
e.DataRow("最接近位次") = mdr("当年位次")
e.DataRow("预测分数") = mdr("当年分数")
End If
End If
加好友 
发短信
Post By：2014/2/27 20:58:00 [显示全部帖子]
