求助数据处理问题

forman

比如我 在窗体的 A控件上输入 01020305060507   如何判断 每两个字符都不会重复！（01，02，03，05，06，05，07 ）比如这个有两个05就弹出提示·字符位数是不确定的·有时多有时少·

forman

行了··我把·If intCount = Len(Me.asdfas) Then 这黎搞错了不好意思·谢谢DDDDDD```

forman

原帖由 Henry D. Sy 于 2008-12-9 14:29 发表

是吗，我真是健忘。
我怎么记不起来我曾经这样写过。

我把你写的···Len(Me.Text0)  改成了 Len(Me.asdfas.Text)  是这样改的吗？

Henry D. Sy

原帖由 forman 于 2008-12-9 14:25 发表
额··这是你写的啊···

是吗，我真是健忘。
我怎么记不起来我曾经这样写过。

forman

额··这是你写的啊···

Private Sub asdfas_AfterUpdate()
    Dim intCount As Integer, H As Integer
    Dim I As Integer, J As Integer, K As Integer
    Dim strArray() As String
    If intCount = Len(Me.asdfas.Text) Then
        If intCount Mod 2 <> 0 Then
            MsgBox "请输入偶数位的数据"
        End If
    End If
    H = intCount / 2 - 1
    ReDim strArray(H)
    For I = 0 To intCount - 2 Step 2
        strArray(J) = Mid(Me.asdfas.Text, I + 1, 2)
        J = J + 1
    Next
    K = UBound(strArray)
    For I = 0 To K
        For J = 0 To K
            If I <> J Then
                If strArray(I) = strArray(J) Then
                    MsgBox strArray(I) & " 有重复"
                    Exit Sub
                End If
            End If
        Next
    Next
End Sub

是不是应该这样？

[ 本帖最后由 forman 于 2008-12-9 14:28 编辑 ]

Henry D. Sy

If intCount = Len(Me.asdfas) Then
        If intCount Mod 2 <> 0 Then
            MsgBox "请输入偶数位的数据"
        End If
    End If

这什么意思？？

forman

Private Sub asdfas_AfterUpdate()
    Dim intCount As Integer, H As Integer
    Dim I As Integer, J As Integer, K As Integer
    Dim strArray() As String

    If intCount = Len(Me.asdfas) Then
        If intCount Mod 2 <> 0 Then
            MsgBox "请输入偶数位的数据"
        End If
    End If
    H = intCount / 2 - 1
    ReDim strArray(H)
    For I = 0 To intCount - 2 Step 2
        strArray(J) = Mid(Me.asdfas, I + 1, 2)
        J = J + 1
    Next
    K = UBound(strArray)
    For I = 0 To K
        For J = 0 To K
            If I <> J Then
                If strArray(I) = strArray(J) Then
                    MsgBox strArray(I) & " 有重复"
                    Exit Sub
                End If
            End If
        Next
    Next
End Sub


我改成这样，出现错误“运行错误9，下标越界”···ReDim strArray(H)这句变黄了

[ 本帖最后由 forman 于 2008-12-9 14:13 编辑 ]

Henry D. Sy

原帖由 forman 于 2008-12-9 13:08 发表
之后就不会怎么写了·麻烦 ...

没有测试，你自己测试一下

1. Private Sub Text0_AfterUpdate()
   
2.     Dim intCount As Integer, H As Integer
   
3.     Dim I As Integer, J As Integer, K As Integer
   
4.     Dim strArray() As String
   
5. 
   
6.     If IsNull(Me.Text0) Then
   
7.         MsgBox "请输入数据"
   
8.         Exit Sub
   
9.     Else
   
10.         intCount = Len(Me.Text0)
    
11.         If intCount Mod 2 <> 0 Then
    
12.             MsgBox "请输入偶数位的数据"
    
13.             Exit Sub
    
14.         End If
    
15.     End If
    
16.     H = intCount / 2 - 1
    
17.     ReDim strArray(H)
    
18.     For I = 0 To intCount - 2 Step 2
    
19.         strArray(J) = Mid(Me.Text0, I + 1, 2)
    
20.         J = J + 1
    
21.     Next
    
22.     K = UBound(strArray)
    
23.     For I = 0 To K
    
24.         For J = 0 To K
    
25.             If I <> J Then
    
26.                 If strArray(I) = strArray(J) Then
    
27.                     MsgBox strArray(I) & " 有重复"
    
28.                     Exit Sub
    
29.                 End If
    
30.             End If
    
31.         Next
    
32.     Next
    
33. End Sub

复制代码

forman

Private Sub asdfas_AfterUpdate()
Dim use(10) As String, i As Integer, k As String
k = asdfas.Text
For i = 1 To 10
  use(i) = Mid(k, 2 * i - 1, 2)
Next i


End Sub


之后就不会怎么写了·麻烦帮我补下··

Henry D. Sy

用循环取出两位数，然后循环对比。