如何防止显示全部上机学生时重复

小灰灰 2022-10-06 11:49 70阅读 0赞

在做机房收费系统查看学生上机状态中，显示全部信息时，发现会出现重复的卡号，后来查了又查，改了又改，加了个简单的循环，便避免了这种情况

Private Sub showAll_Click()
        Dim txtsqlOn As String
        Dim msgtext As String
        Dim mrcOn As ADODB.Recordset
        Dim i As Integer
        Dim j As Integer
        txtsqlOn = "select * from online_info"
        Set mrcOn = executeSQL(txtsqlOn, msgtext)
        
        With myFlexGrid
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "上机日期"
            .TextMatrix(0, 3) = "上机时间"
            .TextMatrix(0, 4) = "机房号"
            Do While Not mrcOn.EOF
                .CellAlignment = 4
                .Rows = .Rows + 1
                .TextMatrix(.Rows - 1, 0) = mrcOn!cardno
                .TextMatrix(.Rows - 1, 1) = mrcOn!studentname
                .TextMatrix(.Rows - 1, 2) = mrcOn!ondate
                .TextMatrix(.Rows - 1, 3) = mrcOn!OnTime
                .TextMatrix(.Rows - 1, 4) = mrcOn!computer
                mrcOn.MoveNext
                For i = 0 To .TextMatrix(.Rows - 1, 0)
              '  .Rows = .Rows + 1
                    For j = j + 1 To Val(Trim(.TextMatrix(.Rows - 1, 0)))
                    If .TextMatrix(i, 0) = .TextMatrix(j, 0) Then
                        .RemoveItem j
                        Exit Sub
                    Else
                    
                    End If
                Next j
            Next i
            Loop
        End With
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，70人围观）

还没有评论，来说两句吧...

相关阅读

相关如何防止重复提交订单？

重复提交原因其实原因无外乎两种：一种是由于用户在短时间内多次点击下单按钮，或浏览器刷新按钮导致。另一种则是由于Nginx或类似于SpringCloud Gate

￡神魔★判官ぃ/ 2024年02月24日 05:07/ 0 赞/ 100 阅读

相关如何防止表单重复提交

在平时开发中，如果网速比较慢的情况下，用户提交表单后，发现服务器半天都没有响应，那么用户可能会以为是自己没有提交表单，就会再点击提交按钮重复提交表单，我们在开发中必须防止表单重

你的名字/ 2023年10月17日 11:34/ 0 赞/ 237 阅读

相关如何防止重复发送ajax请求

　　先来说说重复发送ajax请求带来的问题 - 场景一：用户快速点击按钮，多次相同的请求打到服务器，给服务器造成压力。如果碰到提交表单操作，而且恰好后端没有做兼容处理，那么可能

川长思鸟来/ 2023年09月25日 12:09/ 0 赞/ 111 阅读

相关 bootstrap当鼠标停留时显示全部名称

/字符串过长转化为。。。/ table{ width:100px; table-layout:fixed;/ 只有定义了表格的布

谁践踏了优雅/ 2023年06月12日 08:41/ 0 赞/ 50 阅读

相关如何防止表单重复提交？

网络延迟时重复点击提交按钮，会发生重复提交表单的问题。解决办法: 数据库主键唯一提交成功后页面重定向按钮提交后隐藏或不可再点击后台生成页面

灰太狼/ 2023年05月21日 10:13/ 0 赞/ 4 阅读

相关如何防止显示全部上机学生时重复

在做机房收费系统查看学生上机状态中，显示全部信息时，发现会出现重复的卡号，后来查了又查，改了又改，加了个简单的循环，便避免了这种情况 Private Sub show

小灰灰/ 2022年10月06日 11:49/ 0 赞/ 71 阅读

相关如何防止表单重复提交

方法一：基于客户端：利用javascript <script> var isCommitted=false; function checkPost()

水深无声/ 2022年07月12日 15:06/ 0 赞/ 359 阅读

相关使用Ajax时如何防止重复提交

热门系列： [程序人生，精彩抢先看][Link 1] -------------------- 1.前言以前面试的时候，就被问起过：如何防止表单

超、凢脫俗/ 2022年06月06日 01:23/ 0 赞/ 385 阅读

相关解决方案：如何防止数据重复插入？

原创出处 https://www.bysocket.com 「公众号：泥瓦匠BYSocket 」目录 1. 为啥要解决数据重复插入？ 2. 解决方案实战 3. 可落

迷南。/ 2022年04月24日 09:58/ 0 赞/ 318 阅读

相关分布式系统后台如何防止重复提交

分布式系统网络拓扑结构场景描述秒杀系统提交订单时,由于用户连续快速点击,并且前端没有针对性处理,导致连续发送两次请求,一次命中服务器A,另一次命中服务器B,

￡神魔★判官ぃ/ 2022年03月15日 03:40/ 0 赞/ 237 阅读