在生产图表代码之后加上：
Dim filter As String
Dim bh As String = t.current("成绩标识码")
Dim sy As Integer = CInt(bh.SubString(0,4))
Dim sg As Integer = CInt(bh.SubString(4,1))
Dim sx As Integer = CInt(bh.SubString(5,1))
If sx = 2 Then
sx = 1
ElseIf sg = 2 Then
sg = 1
Else
sx = 2
sg = 2
sy -= 1
End If
filter = "成绩标识码 = '" & sy & sg & sx & bh.SubString(6) & "'"
Dim drprev As DataRow = t.DataTable.Find(filter)
If drprev Is Nothing Then
e.Form.Controls("班趋向总").Text = "无"
'其它趋向......
Else
Dim q As Integer = t.current("总分排名") - drprev("总分排名")
e.Form.Controls("班趋向总").Text = iif(q = 0,"平", iif(q < 0,"进","退") & math.Abs(q))
'其它趋向......
End If
加好友 
发短信
Post By：2016/8/27 9:07:00 [显示全部帖子]
