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

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 的数字，就能获得 最匹配 的商品信息