---------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------------
|