关于查询的问题!

petrelai

Private Sub OK_Click()
Dim ch As Integer
ch = Len(Me.商品编号查询)
Select Case ch
Case 1
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "???????' "
Case 2
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "??????' "
Case 3
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "?????' "
Case 4
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "????' "
Case 5
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "???' "
Case 6
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "??' "
Case 7
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 like '" & Me![商品编号查询] & "?' "
Case Else
Me.List5.RowSource = "select 商品信息表.品名规格, 商品信息表.商品编号 FROM 商品信息表 where 商品信息表.商品编号 ='" & Me![商品编号查询] & " '"
End Select
End Sub
呵^^^^^很长吧?没办法,笨呀.

sea.er

你不用管它多少位，直接用“Like [Forms]![窗体1]![文本0] & *”不就行了吗？

cake_super

就是啊！！以前用过的阿！！！*很好用的！你不把它放在前面嘛，就不会出现301，401，5501这种情况了亚！

petrelai

我试过了，就是因为不行，我才改为我那长篇大论的代码呀
不信的话，你试一试，也许你试出来的不是我想要的结果。