主题：判断字符串是否包含星号，如果有星号则进行分割填充，代码怎么写？

吹膜选产品_TextBox1_TextChanged

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("吹膜选产品_Table1")

tbl.Filter= ""

If txt = "" Then

    tbl.Filter = ""

Else

   txt = "'*" & txt.Replace("*","[*]") & "*'"

    '或者 txt = "'*" & strtowide(txt) & "*'"

If txt.IndexOf(" ") = -1 Then '如果没有空格

tbl.filter = "chanpinname Like " & txt & " or guige Like " & txt & " or JM Like " & txt & " "

    tbl.Sort = "chanpinname desc,guige desc,danwei desc"

Else

'Dim txt As String

Dim txt2 As String

Dim txt3 As String

Dim Values() As String

Values = txt.split(" ")

txt2=values(0)& "*'"

txt3="'*"& values(1)

    tbl.filter = "chanpinname Like " & txt2 & " And guige Like " & txt3 & " "

    tbl.Sort = "chanpinname desc,guige desc,danwei desc"

'Messagebox.show(tbl.filter)

End If

End If

吹膜选产品_TextBox1_KeyDown

Dim tbl As Table = Tables("吹膜选产品_Table1")

If e.KeyCode = Keys.Up Then

    tbl.Position = tbl.Position - 1

    e.Cancel = True

ElseIf e.KeyCode = Keys.Down Then

    tbl.Position = tbl.Position + 1

    e.Cancel = True

ElseIf e.KeyCode = Keys.Enter Then

    If tbl.Current IsNot Nothing Then

       ' Tables("chuimo").Current("chanpinname") = tbl.Current("chanpinname")

       ' Tables("chuimo").Current("guige") = tbl.Current("guige")

        'Tables("chuimo").Current("danwei") = tbl.Current("danwei")

        Tables("chuimo").Current("chanpinid") = tbl.Current("chanpinid")

        Tables("chuimo").Current("addtime")= now()

        Tables("chuimo").Current("adduser")= user.name

'分割规格,分别自动填入 宽度 厚度

Dim guige1  As String = tbl.current("guige")

Dim sps() As Char = {"*","="}

Dim s1() As String=guige1.split(sps)

If s1.length > 1 Then

Tables("chuimo").current("kuandu")=s1(0)

Tables("chuimo").current("houdu")=s1(1)

Else

Tables("chuimo").current("kuandu")=""

 Tables("chuimo").current("houdu")=""

End If

    End If

    e.Cancel = True

    e.Form.Close()

End If

吹膜选产品_Table1_DoubleClick

Dim tbl As Table = Tables("吹膜选产品_Table1")

If tbl.Current IsNot Nothing Then

    Tables("chuimo").Current("chanpinid") = tbl.Current("chanpinid")

    Tables("chuimo").Current("addtime")= now()

    Tables("chuimo").Current("adduser")= user.name

'分割规格,分别自动填入 宽度 厚度

Dim guige1  As String = tbl.current("guige")

Dim sps() As Char = {"*","="}

Dim s1() As String=guige1.split(sps)

If s1.length > 1 Then

Tables("chuimo").current("kuandu")=s1(0)

Tables("chuimo").current("houdu")=s1(1)

Else

Tables("chuimo").current("kuandu")=""

 Tables("chuimo").current("houdu")=""

End If

End If

Forms("吹膜选产品").Close()