vb查询功能为什么实现不了

来源：百度知道 编辑：UC知道 时间：2024/05/28 17:01:02
Private Sub xpbutton1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
sql = "select * from 库存 where 数量<" & Text1.Text & " or 数量>" & Text2.Text
seeku
ElseIf Text1.Text <> "" Then
sql = "select * from 库存 where 数量<" & Text1.Text
seeku
ElseIf Text2.Text <> "" Then
sql = "select * from 库存 where 数量>" & Text2.Text
seeku
Else
sql = "select * from 库存"
seeku
End If
Text1.Text = ""
Text2.Text = ""
End Sub

第234个查询都能实现,为什么第一个却实现不了呢

错误修改如下：
sql = "select * from 库存 where 数量<" & val(Text1.Text) & " or 数量>" & val(Text2.Text)
问题解决方法：
IF VAL(TEXT1.TEXT)>VAL(TEXT2.TEXT) THEN
sql = "select * from 库存 where 数量<" & val(Text1.Text) & " and 数量>" & val(Text2.Text)
ELSEIF VAL(TEXT1.TEXT)<VAL(TEXT2.TEXT) THEN
sql = "select * from 库存 where 数量>" & val(Text1.Text) & " and 数量<" & val(Text2.Text)
ELSEIF VAL(TEXT1.TEXT)=VAL(TEXT2.TEXT) THEN
sql = "select * from 库存 where 数量=" & val(Text1.Text)
END IF