求幅度时提示的错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在分析“排名进退幅度”时，提示如图的错误，如何解决呢？谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩管理平台.zip

此主题相关图片如下：进幅.jpg

此主题相关图片如下：幅度.jpg

最低进幅的分数与排名升降时的箭头所示的下降名次不对，谢谢！

这是代码：

If e.DataRow.IsNull("科目")=False Then

Select Case e.DataCol.name

Case "届别","考试期数","年级","班别","科目"

Dim dr As DataRow=e.DataRow

Dim dt_StudentScore As DataTable=DataTables("StudentScore")

Dim dt_pmsj As DataTable=DataTables("排名升降")

Dim gjf As String=dt_pmsj.Compute("Max(" & dr("科目") & ")","[届别]='" & e.DataRow("届别") & "' And [考试期数] ='" & dr("考试期数") & "' And [年级]='" & dr("年级") & "' And [班别]='" & dr("班别") & "'")

Dim djf As String=dt_pmsj.Compute("Min(" & dr("科目") & ")","[届别]='" & e.DataRow("届别") & "' And [考试期数] ='" & dr("考试期数") & "' And [年级]='" & dr("年级") & "' And [班别]='" & dr("班别") & "'")

If gjf > "" AndAlso djf > "" Then

e.DataRow("高幅度")=gjf.SubString(1,gjf.IndexOf("(")-1)

e.DataRow("低幅度")=djf.SubString(1,djf.IndexOf("(")-1)

e.DataRow("高幅分")=dt_StudentScore.Compute("Max(" & dr("科目") & ")","[届别]='" & e.DataRow("届别") & "' And [考试期数]='" & e.DataRow("考试期数") & "' And [年级]='" & dr("年级") & "' And [班别]='" & dr("班别") & "'")

e.DataRow("低幅分")=dt_StudentScore.Compute("Min(" & dr("科目") & ")","[届别]='" & e.DataRow("届别") & "' And [考试期数]='" & e.DataRow("考试期数") & "' And [年级]='" & dr("年级") & "' And [班别]='" & dr("班别") & "'")

End If

End Select

End If

[此贴子已经被作者于2016/8/29 12:46:20编辑过]

但是此处的Dim filter As String = "[届别]='" & e.DataRow("届别") & "' And [考试期数] ='" & dr("考试期数") & "' And [年级]='" & dr("年级") & "' And [班别]='" & dr("班别") & "' and " & dr("科目") & " like '↑%'"有问题，比如一个是↑9，另一个是↑30.它获取的是↑9的值，即9，跟在“排名升降”中的显示的意思不一致。应该是要比较↑后面的数值大小，谢谢！

[此贴子已经被作者于2016/8/30 16:46:35编辑过]

那能把字符型的数值转换成整型的数值吗？谢谢！

那就要排名升降表中作比较是不要字符了，直接用整型数值了

回复狐爸，按照你教的方法进行添加一个表达式字段，但是提示错误。
图片点击可在新窗口打开查看

此主题相关图片如下：提示.jpg

谢谢！

但是有时候进退的幅度不止2位的啦。

或者是在进退幅度分析表里把字段设置成字符型，连↑也带出来。？？谢谢！

如何补足位数？默认算3位数吧。

主题：求幅度时提示的错误。