VB6.0开发如何实现文本框禁止重复保存相同数字

核心实现逻辑：保存操作触发前，先校验当前文本框输入的数字是否已存在于已保存的数字集合中，存在则直接拦截保存操作并提示，不存在再执行后续保存流程。

步骤1：定义全局已保存数字存储容器 #

推荐用Collection集合存储已保存的数字，重复校验效率更高，在窗体的通用声明段添加如下代码：

' 存储所有已成功保存的数字
Dim savedNumbers As New Collection

步骤2：编写重复校验公用函数 #

函数同时包含合法数字校验、重复判断两个逻辑：

Function IsDuplicate(inputStr As String) As Boolean
    Dim currentNum As Double
    ' 先校验输入是否为合法数字
    If Not IsNumeric(inputStr) Then
        MsgBox "请输入有效数字", vbExclamation
        IsDuplicate = True
        Exit Function
    End If
    currentNum = CDbl(inputStr)
    ' 遍历已保存集合判断是否重复
    Dim item As Variant
    For Each item In savedNumbers
        If item = currentNum Then
            IsDuplicate = True
            Exit Function
        End If
    Next
    IsDuplicate = False
End Function

步骤3：修改保存按钮的点击事件逻辑 #

在原有保存代码前插入校验逻辑，示例代码如下：

Private Sub cmdSave_Click()
    Dim inputContent As String
    ' 此处txtInput替换为你实际使用的文本框控件名
    inputContent = Trim(txtInput.Text)
    
    ' 可选：非空校验，不需要可以删除
    If inputContent = "" Then
        MsgBox "输入内容不能为空", vbExclamation
        txtInput.SetFocus
        Exit Sub
    End If
    
    ' 执行重复校验
    If IsDuplicate(inputContent) Then
        MsgBox "该数字已存在，无法重复保存", vbExclamation
        txtInput.SetFocus
        ' 自动选中文本框内容，方便用户直接修改
        txtInput.SelStart = 0
        txtInput.SelLength = Len(txtInput.Text)
        Exit Sub
    End If
    
    ' --- 此处插入你原本的保存逻辑，比如写入数据库、写入本地文件等 ---
    
    ' 保存成功后，将新数字加入已保存集合
    savedNumbers.Add CDbl(inputContent)
    MsgBox "保存成功", vbInformation
    ' 可选：保存完成后清空文本框
    txtInput.Text = ""
End Sub

补充说明 #

• 如果你的数字是持久化存储在数据库、本地文件中，不是程序运行时临时存储的，需要在程序启动/窗体加载时，先把所有历史已保存的数字读取到savedNumbers集合中，否则重启程序后历史重复数据会校验失效。
• 如果需要特殊匹配规则，比如前导零是否视为重复（如001和1是否算同一个）、是否区分整数和小数，可以自行调整校验逻辑的判断规则。

内容的提问来源于stack exchange，提问作者Adnan Saeed Basalamah