[SRC] Projeto tabela inacabado [VB6].

Alguien tiene la solución para completar este proyecto, tengo dificultad en el control y la eliminación de los elementos repetidos en la matriz.
This is a small table to enter data.
Someone please implement this code can not to allow repeated data are informed.
'array textbox
Private Sub Command1_Click()
    Dim o, f As Integer
    On Error Resume Next
    For o = 0 To 27
        If Len(Data(o)) < 7 Then
            Data(o).Text = ""
            Data(o).SetFocus
            ERRO1.Caption = "Field invalid."
            ERRO1.Visible = True
            Exit Sub
        End If
    Next o
'Objective check the fields and repeated and clear that the encounter.
End Sub
[SRC] http://www.sendspace.com/file/psdd54
Thanks!!!

1 Respuesta

Respuesta
1
Private Sub Command1_Click()
    Dim o, f As Integer
    On Error Resume Next
ERRO1.Caption = ""
ERRO1.Visible = False
ERRO1.ForeColor = vbRed
For f = 0 To 26
For o = f + 1 To 27
        If Data(o).Text = Data(f).Text Then
            Data(o).Text = ""
            Data(o).SetFocus
            ERRO1.Caption = "Field invalid."
            ERRO1.Visible = True
            Exit Sub
        End If
Next
Next
ERRO1.Caption = "correct"
ERRO1.ForeColor = vbBlue
ERRO1.Visible = True
   'Objective check the fields and repeated and clear that the encounter.
End Sub
Reemplaza tu Command1_Click() por este
Si te funciona o te da algún error postealo y lo solucionaremos..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas