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

试试:

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