以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个具体要解决的问题！请专家详细提导  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69977)
--  作者：zgjmost
--  发布时间：2015/6/14 3:09:00
--  一个具体要解决的问题！请专家详细提导

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:国家开放大学考务系统.rar

在实例中，考试数据表中，有一部分中央省安排的已标明留考

 

没有标明留考的，是本校安排的

 

现请求解决一个问题，当留考为空值时，如果学号，和日期，起始时间相同的情况下，出现两个或两个试卷号，那么些考生在这一时间段就有留考，那么把小的试卷号标的是否留考填为否，其他的一个或一个以上就填写是：

 

如下图：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150614031121.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/6/14 10:31:00
--  

 你到底有没有学过？所有的东西都要别人帮你写好

 

For Each ary() As String In DataTables("考试数据表").GetValues("学号|日期|时间")
    Dim drs As List(Of DataRow) = DataTables("考试数据表").Select("学号 = \'" & ary(0) & "\' and 日期 = \'" & ary(1) & "\' and 时间 = \'" & ary(2) & "\'", "试卷号")
    drs(0)("是否留考") = "否"
    For i As Integer = 1 To drs.Count - 1
        drs(i)("是否留考") = "否"
    Next
Next
--  作者：zgjmost
--  发布时间：2015/6/14 10:53:00
--  

谢谢大红袍老师，我觉得FOXTABLE很好，我不是学计算机专业的，因为这个东东急用，只能边弄边学，先谢谢您这段时间对我的指导，这几天我学到了很多知识！