Buenas, estoy usando un MSflexgrid para ordenar datos...
tengo 4 columnas una que indica el numero que ingrese, otra que marca si es par o impar, y otra que marca la cantidad de veces que salio el numero...
Quisiera saver como hacer para que me diga cuantos pares e impares salieron...
Hasta ahora tengo este code:
Option Explicit
Private Sub cmdGuardar_Click()
Dim arch As Variant
Dim i As Integer
Set arch = CreateObject("Scripting.FileSystemObject").CreateTextFile _
(App.Path & "\" & idtxt & ".txt", True)
With flxLista
For i = 1 To .Rows - 1
arch.WriteLine ( _
.TextMatrix(i, 0) & vbTab & _
.TextMatrix(i, 1) & vbTab & _
.TextMatrix(i, 2) & vbTab & _
.TextMatrix(i, 3))
Next
End With
arch.Close
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub IniciarLista()
Dim factor As Single
With flxLista
factor = (.Width - 360) / 10
.Cols = 4
.Rows = 1
.ColWidth(0) = 4 * factor
.ColWidth(1) = 1.5 * factor
.ColWidth(2) = 1.5 * factor
.ColWidth(3) = 3 * factor
.TextMatrix(0, 0) = "Número"
.TextMatrix(0, 1) = "Par"
.TextMatrix(0, 2) = "Impar"
.TextMatrix(0, 3) = "Cantidad"
End With
End Sub
Private Sub cmdAgregar_Click()
Dim pos As Integer
If txtEntrada = "" Then Exit Sub
With flxLista
pos = Buscar(txtEntrada)
If pos > 0 Then
.TextMatrix(pos, 3) = Val(.TextMatrix(pos, 3)) + 1
Else
.AddItem txtEntrada
If Val(txtEntrada) Mod 2 = 0 Then
.TextMatrix(.Rows - 1, 1) = "X"
Else
.TextMatrix(.Rows - 1, 2) = "X"
End If
.TextMatrix(.Rows - 1, 3) = 1
End If
End With
End Sub
Private Sub Form_Load()
IniciarLista
End Sub
' Busca 'valor' en la primera columna del flex y retorna la fila donde es hallado
Private Function Buscar(valor As String) As Integer
Dim i As Integer
With flxLista
i = .Rows - 1
Do While i > 0 And .TextMatrix(i, 0) <> valor
i = i - 1
Loop
End With
Buscar = i
End Function
Private Sub txtEntrada_KeyPress(KeyAscii As Integer)
If KeyAscii = "13" Then
cmdAgregar.SetFocus
End If
End Sub