Office中国论坛/Access中国论坛

标题: 求助数据处理问题 [打印本页]
作者: forman    时间: 2008-12-9 12:34
标题: 求助数据处理问题
比如我 在窗体的 A控件上输入 01020305060507   如何判断 每两个字符都不会重复！（01，02，03，05，06，05，07 ）比如这个有两个05就弹出提示·字符位数是不确定的·有时多有时少·
作者: Henry D. Sy    时间: 2008-12-9 12:46
用循环取出两位数，然后循环对比。
作者: forman    时间: 2008-12-9 13:08
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    时间: 2008-12-9 13:39
原帖由 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

  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    时间: 2008-12-9 14:12
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    时间: 2008-12-9 14:22
If intCount = Len(Me.asdfas) Then
        If intCount Mod 2 <> 0 Then
            MsgBox "请输入偶数位的数据"
        End If
    End If

这什么意思？？
作者: forman    时间: 2008-12-9 14:25
额··这是你写的啊···

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    时间: 2008-12-9 14:29
原帖由 forman 于 2008-12-9 14:25 发表
额··这是你写的啊···

是吗，我真是健忘。
我怎么记不起来我曾经这样写过。
作者: forman    时间: 2008-12-9 14:39
原帖由 Henry D. Sy 于 2008-12-9 14:29 发表

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


我把你写的···Len(Me.Text0)  改成了 Len(Me.asdfas.Text)  是这样改的吗？
作者: forman    时间: 2008-12-9 14:43
行了··我把·If intCount = Len(Me.asdfas) Then 这黎搞错了不好意思·谢谢DDDDDD```



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3