语法错误（操作符丢失）

zhengbo

Private Sub 文本15_LostFocus()
Dim rs As New ADODB.Recordset
Dim str As String
Dim Liaohao, num, GongNum As String

str = "select * from 包装箱录入查询 where 工号＝'" & Me.文本15.Value & "'"

  Set rs = GetRS(str)
  While Not rs.EOF
        Liaohao = rs.Fields(料号)
        num = rs.Fields(良品数)
        GongNum = rs.Fields(工单号)
        rs.MoveNext
        MsgBox "ok"
   Wend
   MsgBox "no"
   rs.Close
   文本2.Value = Liaohao
   MsgBox Liaohao
   文本17.Value = num
   文本18.Value = GongNum
End Sub

yachtz

看看是否SQL语句缺少结尾的分号";"的缘故

zhengbo

；不要的吧，我加上去之后没用的啊，提示语法错误

fan0217

str = "select * from 包装箱录入查询 where 工号＝" & Me.文本15

用上面的试试。