窗体输入

啊海A

naroto 发表于 2021-9-24 17:45
这样的效果。

还是不行，连续输入就报错
Private Sub TextBox2_Change()
    Dim s$, i%
    s = CStr(Me.TextBox2.Text)
    If d.exists(s) Then
       Me.TextBox3 = arr(d(s), 1)
       For i = 3 To 5
          Me.Controls("TextBox" & i) = arr(d(s), i)
       Next
    End If
    arr = Sheet2.UsedRange
    For i = 2 To UBound(arr)
        If CStr(TextBox2.Text) = CStr(arr(i, 2)) Then
            MsgBox "扫描记录重复,请重新输入。行号：第 " & i & " 行"
            Exit For
        End If
    Next
End Sub

啊海A

naroto 发表于 2021-9-24 17:45
这样的效果。

还是不行，连续输入就报错Private Sub TextBox2_Change()
    Dim s$, i%
    s = CStr(Me.TextBox2.Text)
    If d.exists(s) Then
       Me.TextBox3 = arr(d(s), 1)   这里报错
       For i = 3 To 5
          Me.Controls("TextBox" & i) = arr(d(s), i)
       Next
    End If
    arr = Sheet2.UsedRange
    For i = 2 To UBound(arr)
        If CStr(TextBox2.Text) = CStr(arr(i, 2)) Then
            MsgBox "扫描记录重复,请重新输入。行号：第 " & i & " 行"
            Exit For
        End If
    Next
End Sub

啊海A

naroto 发表于 2021-9-24 17:45
这样的效果。

还是不行，连续两次输入就报错了。
Me.TextBox3=arr（d（s），1）

naroto

有个数组变量重复了。已更正

ja5144

Private Sub TextBox2_Change()
'    Dim s$, i%
   
         With Worksheets("数据库")
          For Each Rng In .Range("B2:B65536")
         
          Label6.Caption = ""
         
               If Rng.Value = TextBox2.Text Then
                   TextBox1.Text = .Cells(Rng.Row, 1)
                   TextBox3.Text = .Cells(Rng.Row, 3)
                   TextBox4.Text = .Cells(Rng.Row, 4)
                   TextBox5.Text = .Cells(Rng.Row, 5)
                   Label6.Caption = "在第" & Rng.Row & "行"
                   Exit For
               Else
                  Label6.Caption = "no data"
               End If
               
          Next
        End With

ja5144

Private Sub TextBox2_Change()
'    Dim s$, i%
   
         With Worksheets("数据库")
          For Each Rng In .Range("B2:B65536")
         
          Label6.Caption = ""
         
               If Rng.Value = TextBox2.Text Then
                   TextBox1.Text = .Cells(Rng.Row, 1)
                   TextBox3.Text = .Cells(Rng.Row, 3)
                   TextBox4.Text = .Cells(Rng.Row, 4)
                   TextBox5.Text = .Cells(Rng.Row, 5)
                   Label6.Caption = "在第" & Rng.Row & "行"
                   Exit For
               Else
                  Label6.Caption = "no data"
               End If
               
          Next
        End With