主题：怎么改，能改模糊匹配

If e.KeyCode = Keys.Enter Then
    Dim spdm As String = e.Sender.Text
    Dim dr As DataRow = DataTables("库存明细表").Find("商品代码 = '" & spdm & "'")
    If dr IsNot Nothing Then

           e.Form.Controls("商品类型").Text = dr("商品类型")

Else

产品代码 如：  F6   HM930  RBL155、   输入 6    930 155 的数字，就能获得 最匹配 的商品信息

试试:

Dim Flt as string ="6,930,155"    'e.Sender.Text

if flt > ""  Then

   Flt = "商品代码 Like '%"  &  Flt.Replace(",","%'And 商品代码 Like '%")  & "%'"

   Dim dr As DataRow = DataTables("库存明细表").Find(flt)

      If dr IsNot Nothing Then

        ...

      End if

End if

不行，没有效果！！！

我这个 不是 查下哦，  是 编码  填充 信息

纸上不谈兵，提问最好配合一个简单的例子

嗯， 晚点 我上传！ 上班中