VB应用：在TEXTBOX中使用逗号区分数据

---------VB应用：在TEXTBOX中使用逗号区分数据------------

主要作用是在查询数据库时，要求同一字段的多条件的查询，SQL语句的生成，下面代码是利用一个TextAfter的数组存放用逗号分隔开的数据。
     
        Dim intTextLen, i, k As Integer
        Dim TextBefore, TextAfter(100) As String
        intTextLen = Len(TextBox1.Text)
        k = 1
        TextBefore = TextBox1.Text
        For i = 1 To intTextLen
            If Mid(TextBefore, i, 1) = "," Then
                k += 1
            Else
                TextAfter(k) = TextAfter(k) & Mid(TextBefore, i, 1)
            End If
        Next

待续

-----------end------------