Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何以列数据的比较结果作为条件对比另一列两个数据的大小并返回相应的结果？


  共有2676人关注过本帖树形打印复制链接

主题：如何以列数据的比较结果作为条件对比另一列两个数据的大小并返回相应的结果？
帅哥哟，离线，有人找我吗？
幸福地微笑
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：71 积分：526 威望：0 精华：0 注册：2016/7/20 2:33:00 		如何以列数据的比较结果作为条件对比另一列两个数据的大小并返回相应的结果？  发帖心情 Post By：2016/8/27 1:19:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：趋向.png
图片点击可在新窗口打开查看

 

上面提及的学生成绩标识码组成说明：

２０１５２２２０１５０１０２

２０１５：代表２０１５学年

２：代表第二学期，１代表第一学期

２：代表期末考试，１代表期中考试

２０１５：代表入学年份，本例中与学年一致，代表一年级

０１：代表班号，不满１０前面补０

０２：代表学号，不满１０前面补０


 

[此贴子已经被作者于2016/8/27 1:22:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2016/8/27 7:23:00 [只看该作者]

做个例子上传

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2016/8/27 7:24:00 [只看该作者]

原理就是找出两个相邻的行，然后计算

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/27 9:07:00 [只看该作者]

建议增加列，用来表示第几学期和期中期末，然后可以通过这些字段进行排序，最后顺序比较排名

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/27 9:07:00 [只看该作者]

不会就上传例子

 回到顶部
帅哥哟，离线，有人找我吗？
幸福地微笑
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：71 积分：526 威望：0 精华：0 注册：2016/7/20 2:33:00 		辛苦各位教师帮忙看看！  发帖心情 Post By：2016/8/27 13:20:00 [只看该作者]

点击“查看更详细信息”打开“学生成绩详细分析”窗口，各科的趋向值如何如我开始时所说的进行统计？

 

实例：

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:成绩管理.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/27 14:34:00 [只看该作者]

在生产图表代码之后加上：


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
 回到顶部
帅哥哟，离线，有人找我吗？
幸福地微笑
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：71 积分：526 威望：0 精华：0 注册：2016/7/20 2:33:00 		  发帖心情 Post By：2016/8/27 23:46:00 [只看该作者]

还是高手厉害！佩服！！！！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询