主题：求助，输入数值后怎样自动匹配型号并自动输入

DataColchanged事件：

 

 if e.DataCol.Name = "数值"

    Dim s As string = e.DataRow("数值")

    if s.StartsWith("800") Then

       e.Datarow("型号")  = “J5SQ1”

    Elseif s.StartsWith("801") Then

       e.Datarow("型号") = “J5SQ2”

    Elseif s.StartsWith("801") Then

       e.Datarow("型号") = "JSQ1k”

     Else

       e.Datarow("型号")  = ""

     End If

end If

   

提问最好具体一点，做个小例子发上来，说明需求和问题。

问题具体，答案才会具体，问题准确，答案才会准确。