Open App.Path & "\data.txt" For Random As #1 Len = Len(per)
        m = LOF(1) \ Len(per)
        For i = 1 To m
           Get #1, i, per
           If per.name = Text1.Text Then
              Text2.Text = per.num
              exit for
           End If
        Next i
   Close #1

求大神讲解一下

大神在哪里

if过程里面就没有数据，其他一切正常，不能判断

而且在发帖之前我就测试过了，数据方面没问题，就是不知道为什么if不能判断

终于有人能看懂我的意思了，握手