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

小灰灰 2022-10-06 11:49 41阅读 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 条评论，41人围观）

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

相关阅读

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

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

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

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

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

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

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

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

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

相关服务端如何防止订单重复支付？

![9d21a1ef8ef6b66fafa265334f1065ba.png][] 来源：cnblogs.com/cjsblog/p/14516909.html ![d4a

水深无声/ 2022年11月15日 14:22/ 0 赞/ 165 阅读

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

相关实战参考：如何防止数据重复插入？

牛旦教育IT课堂 2019-05-03 23:38:09 > 原创： BYSocket > > 链接：https://mp.weixin.qq.com/s/xCe2ljuh

男娘i/ 2022年01月29日 02:17/ 0 赞/ 224 阅读