vba客体满足2个条件，查询数据

foryoumy

通过身份证号，和密码一致后，查询对应数据，显示在文本框中，目前部份功能实现，差查询功能

洋务德雷

发错地方了。不好意思

foryoumy

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) '密码框，输入密码不存在，就提示密码错误
On Error Resume Next
    Dim theStr$, arr, brr, j
    arr = Sheets("工资数据").UsedRange
     theStr = TextBox2.Value
     
      For a = 3 To UBound(arr, 1)
        If brr(1, TextBox1.Text) & "@" & brr(1, TextBox2.Text) = arr(a, 2) & arr(a, 9) Then'这行文本框内容，如何与数据对比
            TextBox3.Value = arr(a, 3) '姓名
            TextBox4.Value = arr(a, 4) '基本工资
             TextBox5.Value = arr(a, 5) '岗位工资
             TextBox6.Value = arr(a, 6) '代扣社保
             TextBox7.Value = arr(a, 7) '实发工资
          Else
          MsgBox "密码错误，请确认或联系管理员！", vbCritical, "错误"
         End If
    Next
End Sub

foryoumy

错误提示，，还没想到解决办法

xunanming

请参考-------------------------------

foryoumy

xunanming 发表于 2023-5-22 18:54
请参考-------------------------------

谢谢解答！